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Pare OOUC TION 


The objective of this thesis was to investigate 
the Peace tty ee Ot eso. Sspoecia!l1zeq microcomputer: a "“COROL 


mempemlator.” This CUFOL calculator woula interpret onlv 
ets OL proarams anc was to be desianec using simole 
eslgorithms, similar to a proarammable calculator, which 
would be imelementec 1% microcode on a high-oerformance 
mercroorocessor. 

COBOL was chosen as the source languace decause it 
is used througnour the avy and tne business worla. Tne 
version of CUROL usea for this machine is MICPUSCCEOL, which 
was develored by LT A. S. Craig aurina tne course cof 15 
thesis work at tne “Naval Postoraduate Scnoo! (see Feference 
i) « MICFO-COB0L is an extension of the U.S. Navv defined 
Hvpo-CURBOL, which represents the minimum acceotatdle workina 
eumoset of COBOL withir the Navy. 

The use of a mure interpreter to execute CURDOL 
Mmpoarams can he considered feasible since CNBCL 18 heavily 
[moO dependert. Jhus the time required to interoret the 
source code 1s smal! in camoarison to the [/0 aelays. 

[Tec rewnineaky 2sHecification oft the macnine 
hardware was completed using the Advanced Micro Devices 
Am29VN0 family of ricrcDprocramable high*oerforvrance circuits. 
SPcmeioaniiyeris |centered around 4 binolar, four-hit-slice 


Me Gogroacessor LSt cnhio. Fiaqure 7 contains a System gesign 
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memo this family of circuits. [n addition, the feuse “of “a 
fagh | y flexible "“metarassempbler,”"” which simplifies the 
designers’ task ont creating Mrcrornsecue © 1OM Ss 1S 
i”croduced. 

fhe last major goal was tne aesign of tne 
puega@rvtnms to be used to iinteroret CObOL ifn tne macnine 
muerococe. Ihis was accomolished using the lanauage C, 
which 1S available on the U"II¥ operatinae system at the Nava! 
Pestaqraduate School. The software wnich was Iimolemented 
includes a working editor and interoreter. Tne desian of tne 
editor and the interpreter stressea simolicity rather than 
Seervciency. Concepts such as reolacina pointers with a 
bimear search, ASCII character arithmetic, and storage of 
variable values within the source code were used. Tnese 
moorithms must now cove converted to microcode and run oan a 
gevelopment System to determine if the execution titres are 
‘fast enough Eo make the COBOL calculator concept 


@eerationally feasible. 


- 





Tl. SOFTWARE 


The COBOL machine aescribed here consists of the 
momerowing software modules: a monitor, an editorer a pure 
interoreter, and a dehuager. Of these, the editor and the 
interpreter were cdesianed and imolemented as part of this 
thesis. both the editcr and the interoreter were written i397 
the’ systems proaramming lanauage ‘'C' and were comoiled and 
mesgred on the UNI¥Y noperatince system. The skeleton monitor, 
which was necessary atone testing Suse nas not been 
Meeuced. the cgecucaer will be hriefly descrihed as a simole 
extension of the interpreter. 

The editor and the intereoreter were cesianed far 
simolest imolementaticn. Fn general, eacn module consists of 
meeeesc ring of subroutines which are as independent as 
possible. Tne ortjective vas ta develoo simple, 
straiantforwarda, linear proaram modules that would edit’ and 
Mmeeeroret CUORBOL and he short enough to be stored 1n Kead 


Only Memory (°0™). 





Pee Ee EDI TUR=--COED 


pemececieor ts the User's means of communicatina 
Meee the COBOL machine. ASide from accecting COBOL proarams 
Mmeme=Oy-line from the console and providing the stanaard 
edit mumeciOmo,) tme editor performs some functions normal lv 
performed by an interoreter/compiler. Tnese fupGe Cons 
include creatina and maintaining a symbol table and 
meeracing the COoMlL scurce words in the orocedure division 
with toKen numoers. This greatly Simones the 
interoretation ohase ana does not creat® a substantial 
overnead during editira. 

“when invokeac, the eaitor eitner creates a new 
mere, Or opens an already ervistina file by loagina it into 
memory from a random access device. tach CORUL statement to 
be entered into this file must *eain witn a five character 
line index. ae WieStmemaracter Of this tmagex denengs  vUoOon 
the me sicn Stones CObMinprogdramn Which is FPeina edgitted 
(see APPENDIX C). 

The I[centification and Environment divisions) are 
stored as tney are entered from the user's censole 17 lower 
case ASCII code (extension to allow unper case will oe 
discussea later) with tne UNIX newline character (CK) Feina 
replaced with a special (Gel “Scharacter for. ease of 
@etection. 

Wiemeataomeoryysiom 15 also stored 1n lower case 
ASCII code. Whenever an identifier 18 declaredr, however, an 


entry 1S made in the symbo |] table. Tre SymbDo | tahle 1S 





simolv a list of orintnames, each a maximum of 16 characters 
lonq. [The printnames cf all COBOL reserved words are entries 
in the symbol table. For a completed COBML omrogram, there 
exists a anestorone corresoondence oetween COBOL reserved 
words, acceptable punctuation, a\] ornagram identifiers, 
mecera!s and symbol table entries. The relative adoress of a 
Gea@tnarme within the symbo } taodle 1s the entry's token 
number, allowine simple conversion hetween token numoers and 
orintnames. 

ies nocegure Givision 1S converted entirely to 
Mmemeem Aumbers Ov the editor exceot for the five cnaracter 
line numoer that must preceeq avery COBNL statement. Ai) 
Meemtyiryers mnust be declared in the Nata divisions, and, 
aside from comments, cnly reserved words ana literals are 
allowea in the Procedure division. Thus, any undeclared 
MmeemceytierS,s, or tvpinc and soelling errors are cauant here 
mm the edit chase where they can be easily corrected. [t 15 
mandatory, therefore, to enter the entire Data division 
Metore entering the Procedure division. 

The editor cperates in memory in the followina 
WAY When invoked, Pmae “ea1ltor initializes two memory 
momeaters, col and coc (see Fiaure 1). Col is the cointer in 
}Oow memory which always addresses tne last ovte accessed. 
This byte was either rewly added, modified, or just examined 
mye thre user. The cointer in high memory 1s coeds which 
fame sses the remainrirg CObNL orooram, if it existSr or fne 
last available byte ir memory (see Fiaure dc). “emorv is thus 


Givigedq into three areas: area FT in low memorv,s, area IE ie 
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high memory, and the work soace in the middle. Console innut 
characters are queuec in a line Huffer until a period and a 
carriage return character are entered, At ehys time, the 
entire line is written into memory, heacinnina with the last 
accessed byte (the one addressed by col). Characters (bytes) 
are constantly beina moved up or down in memory as necessary 
Momopen the work space at the point in user's COBOL frogram 
where editincec 18 takina place (see Figure 3). The symbol 
table is storeaq in a temporary data area during tne edit 
phase. 

Ahen the user terminates the edit phase, tne work 
soace is closed by roving the entire crogram down inte low 
memory. The svmbol table is then written at the ena of the 
meek oroaram, directly following its end of file (FUF). 

The editec CGBeer orograrm consists of 
Me@emtificationrs, Environment, and Vata divisions in tneir 
Ooriaqinal source coge, the toxenized Procedure givision, and 
the symoo} table. Ir tnis form, it can either de stored on 
some random access device for Ssubseauent interpreting, or ode 


Moe roreted directly followine the termination of edit. 





MEMORY DIAGRAMS 


SP 1 







RO OO On d sai vision. AOO 








POSsEOgGram—-id. “cest.A Area I 
OOZOauthor. 
Pl 
Work 
Space 
Area II 
CPZ CP 2 
Beale (1. Paigere. 2: 
Mepetally, all of memory CPivyitce the byte OfESet of 
is viewed as work space. the last character entered 
by the user. CP2 stays at 


mesceeneee aliged value unt iL 
the first search. 


ROCOOLd division. } Area I 
CPl 





Work 
Space 
CP2 "AOO1Oprogram-id 
test.AQOQ20author. Area ITI 


Beg Ue ese, 


When the editor must access 
meoaetaecular line, 1m this 
case AOO1O, bytes are moved 
between Area I and Area II 
Upbeat the line is found. 


eZ 





PQentiLeiCcatLton= and 
Pie Onmone- cailvyiLsrons 


COLeo0 GOS Ladenea1 fie 
Cpl Puce ons 7 Valine O=2 30. beginning Data division 
Work Space 
@p'2 O2ertaenta fier 2 remaining Data division 


Pea@ceqdurce .divis Lon 


Symbol Table 





Figure 4. 


Memory as viewed by the interpreter 
Generis tOring asvalue into identifierl. 


ls 





Bette INTERPRETER=-COIN 


When the interpreter is invoked, ei the edited 
CObOL proaram does not already exist in memorv, it is loaded 
one pyte at a time heainnina with relative address 0. Next, 
meee Oeginning of the procedure division must be- located. As 
the search oroceeds, Cytes are roved up 1m memory” starting 
with the last byte of the symbol table until the first line 
number of the Procedure division has heen moved. The work 
Beece 31m the micale of the memory array 18 now defined. 

The intercreter then Yad tla ly Zes all the 
identifiers whose initial value has been defined by the user 
meet he VALUE option. Identifier values are storea in the 
Data division followima tts PIG ang/or VALUF clause. Bytes 
are moved un in memory until tne work snace heains. at tne 
fPamgeeeot the narticular deciaration. Anv value not exceegcina 
the lenath of the werk soace can be stored nere. All 
Meemtrrfier values are stored in the Data division in this 
manner. The internoreter writes the desired value into tne 
work space, thereby raking it a cart of the Data division 
(see Fiaure 4). 

MOroeCronnccUmter 1S jmAytialized to the relative 
pearess cf the beginning af the Procedure division. This 
Bouter 1S incrementec Fyte Fy hyte as tne division 1S 
Scanned for grammatical correctness. Eacn comolete CUROL 
Statement 15 executed as it 18 scanned. 

The first bvte after each line number 1s the token 


moe 2 «ke€yword that determines the tyne of COFOL statement 
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mueerm fO)lowS. fased upen this token, the interpreter calls 
a subroutine to handle the statement form. The sudroutine 
scans the statement (token chain) fOnmmmoccem! Toyl ty — Unt?) 
the mal’ character, inserted by the editor, and performs 
mmeoesired action. A} ) embedded blank, tao, and comma 
tokens are acceoted bv tne interpreter. 

it Oaaeamnat1cal error (misplaced or unexpected 
token) 1S Scanned, am €FFor flag is set that causes 
execution to stop with an 30prooriate error message sent to 
moemesuser. At this coints a cdebugqecer could be enterec. Since 
all identifier values are availaole in the Pata division and 
Mmeemecurrent line number is alwavs accessible, an error could 
be corrected and scannina/execution could resume at the 
meocement. “lormal execution halts when the token for SICP is 
scanned. 

When 38 jump 1S required to execute a particular 
Statement, PrewOrecdram scoumtrer 1S reset to the first token 
Oe tme Proceagure division and the first toKxen of each line 
memececamnec tmtil the cesired destination is founa. Execution 
Of the PERFORM verb involves a return jumo ang therefore 
requires the return token to be saved. At oresent, an ei1ant 
level software stack 15 imolemented which Sul ow So meric SeG in 
statements to be nested eiakt ageeo. This could he changea, 
however, since overal | machine memory  $12e 1s. the “only 
@estriction. 

Each time am idertifier value 1s ‘fetched or 
Stored, the following stenrs are executed: 


1) The token rumrber is manoped to its orintname 


ie 





(the token number is the index of the orintname in 
the symbol table). 

ec) Bytes are noved seauentially up or down in 
memory between Area Tf ana Area ITI until a 
printname match is found. 

3) Scan continues from here until an eaual sian 
ems cCUL' character. 

Epeeetime Value 1S then @ither written from <4 
Seratch buffer Vee the work Snace et this point 
Siar iccen from the Nata division ints a scratch 
Ebene r for furtner action. If a READ or WRITE 
Statement 1$ oeINgG orocessed, tne PIC clause 
determines the WGGemat wm which the cata vVelue is 
matt cem. Otherwise, it 1$ Simply cooied byte by 
byte as it acoears in tne buffer or memory. 

[be arithirPetic routines operate unoon che ASCITI 
characters stored in the Nata division if the oneranad 18 a 
variabler or upon the symho! tahle in the case of a literal. 
Beem routine uses look-up tanles to perform its operation of 
addition, Suir ac t 1: OGir mut twolveat 1ONn.s Orne cy is 10a. The 
operands are loaded into two variable lenath pruffers, called 
KX ANd yr and operated unmon seauentially ore pair of bytes at 
@ time oveginninrg with the riantmast byte of each outfer. AS 
memrmed by HMICRO-CORUL, the result is written into the UData 
meeyvrsion ares correspending to the secona ocerana. It should 
Bemmoted that as the LSI circuits are developed, the tahle 
lookuo method can easily ke renliaced by using fourHhit 


eecer/7suotractor and multiolier chios. 


Io 





Pease toe GET] MACHINE 


One major development which makes a COBOL machine 
meepepoie is the wide availibility of hian performance bit- 
meee microorocessors on LSI chios. A Stes lee 1mleroorce- 
mmsor 1S 2 circuit which has all the reaquired inputs and 
pemeeuts of aa basic orccessor functions such as tne ALU, hut 
memmmomiy two or four bits wide. Any number of these two or 
Gomme obit=sliices are conmected in carallel tn allow oprocess= 
ing of data words of anv desired width. Thus, the svstem 
designer is able to scecify a processor which meets particu- 
lar reauirements. fps etemrerlity 1S hvehly- oesirable in 
many apolications where the ootimum word s$1ze 1S areater 
than the common eight pits available on most fixed architec= 
tured microorocessors. 

PNemmoporleveotmprt=slice microorocessors achieve 
their high oerformance usina hicolar tecnnoloay. The commer= 
mmneecevelooment of bicoalar JTL, ECL+ ana Schottky hioclar 
DTL chips represent a major step 1n increasing performance. 
emmmolar Switching circuitry is ten to a nundred times faster 
meom Simylac “OS switchina circuitryv. 

Eremecusecvamrtage of D’iGolar Cigeuwaitry 1s that Ve 
cannot yet De Gacked as densely as the MOS eauivalent, thus 
requiring more cnios for a aiven numcer of circuits. Tn manv 
mee=siyce apolications this 18 not a sianificant disadvan- 


tage wnen comoared with the increase in soeed. 


ey, 





The second major development which effects the 
Beet “calutator'’ is the introduction of bit=-slice micropro- 
cessor families whicn are microorogrammacle. Microorogram 
lagic is olaced in Read Only Memory (R04) ang replaces the 
usual nardware random logic circuits. The advantages are 
found in the more ordered anpoproach to function imonlementa- 
Drom and the ease of reolacina the loacic. The logic to de- 
fine a function 18 Stored in Programmaole Read-Only Memory 
momemy as a block of ricroinstructions and, if a change is 
oesired, a new PROM is Droamrammed with aifferent microin= 
Structions. A further advantane 1s the ability to define a 
powerful] Viotmiet Tom set,  calitedimacroinstructions for an 
architecture where each instruction 16 actually imolemented 
meee several microinstructions. This increases tne nmerfor- 
mance of the machine sianificantly since the access time for 
ROM is two to ten times faster tnan Random Access Memory 
(RAM) where macroinstructions are stored. 

Rc wmMostmecormmMom tses stor olr=slice microerogramm- 
emple machines include diaital filters ara emulators. Pit 
Beuerce processors are ecarticularly well suitea for emulation, 
since a given macroinstruction can be mapoed to a set of m1I°- 
meormstructions which execute the desirea function. 

Al}thouch emulation is effective, the COBOL calcu- 
lator does not emulate a machine languaae. The necessary 
mere to interoret a VICRO=-COROL orogram is 1Nn microcode mn 
the PROM. ty imolementing the COBNL editor and interpreter 
1M microcode, the machine vecomes a COBCL “calculator” and 


nus Ae will only croacess MICRON-CORUL. The irteroreter 15 


1& 





implementedg in microccde to increase performance, ands as 
noted previously, the algorithms were extremely simnle. with 
simmle alaorithms, balanced bv a hiah performance processor, 
Tats is possible to keeo the overall length of the program 
small enough to write in microcode, while retaining a feasi- 


ble execution time. 





femeei re Ame900 FAMILY 


treme Ome ahewlator was desianed within the limi- 
eacrons ot a widely available microproarammable fours=oit= 
mce Obioolar microsorocessor family, the Am2900 series, 


developed oy Advanceu Micro Devices (see Reference ec). 


lL. Ame901 

fmememe"Ole 1s four br1t=slice bipelar mitcrooroces-= 
Sem chio which can be easily cascaded tn anv number of 
memes. FiQure 5 1S the block diagram of this chip. The 290! 
Gemorsts Of 15 workine rearsters, a G register, shift multi- 
olexers, and an eightefunction ALU. It features simultaneous 
access to any two registers, and )eft and right skift onerao 
tions inugependent of the ALU. The machine cvcle times, hased 
tmgm a two register add function, is 110 nanoseconas for the 


Am29U1 and 55 nanosecends for the new AnePQ0A, 


eee ame209 and 4me91 i 

PteomnmeaeUem1S a four DIt cascadandlie  microoragram 
sequencer. Pucme loe< Gdld@ran 16) ShOwm Im Figure 6. Tre ¢909 
memerols the executior seauence of a series of microinstrucs 
Meemc. ithe address of the next microinstruction to ke exer 
euereo Can come from the proaram counter register, the stacks 
the internal augdress reaisterr or a direct inout. The Jatter 
memes Ources allow for an newav branch at any ooint 1 Fe we ne 
feeGeoorocgcram. The stack allows four levels of suvrottine 
calls. The internal adoress register (IAR) can he connected 


Momeethe Oloelinme reaqister or the mapring PPOY as shown in 


2 0) 





meogme 7¢7. [he outout can be set to the first microword 
memos using the zerce inout. Each output bit can be "OFitea" 
mogeconditional instructions. 

The Am2e9l! 15 similar, exceot the direct tnout 1S 
connected to the itnternal register and the ORK inputs are rer 


moved. 


meeendditional Circuits 

The Am2°02 15 a nigh=speed look-aheag carry gen- 
erator providirg 42 lcovtm=aneageecarry for us to tour Arme?0! 
echios. The Am2e905 and Am2e9N6 are quad tworinput ccen-~ 
collector hus transceivers. Additional Gnipoce weleh are 
available include four-bit registers, counters, multiye 
plexers, adders, and rultipliers. Read-Only Memory (RAM) and 
Proarammed FResa-Unlv Memory (PRAM) are available in several 
sizes and access sceeds. Claes | wniecn wit | seen become 
available include a Direct Memory Access. neference 2 con- 


wains a detailed explanation of tnese and other circuits. 
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B. MACHINE DESTGN 


puigugeuvers ma cdetailed hHhiock diagram of the oro- 
posed COBOL calculator. The machine is desianed around 
several] basic blocks: a 4096 by ec8=bit microprocram PFPOM, 424 
meet SLU, an 8=hit cata buss and a piveline register. 

[eemoveeilime Feaister holds the next Vast ruet) on 
momme executed. while an microinstruction 1s heing executéd, 
the next instruction is moved into the nioeline reaister. 
Wiithin one macnine cycle, the sequencer fields are decoded 
Seeetme next instruction address is available to PROM, aris 
Meeen 1S concurrent with anv ALI) operations. 

The size of the microorogratr PRKOM was determined 
Geet ne estirated size of the editor and the interpreter. 
This estimate was made by examining the size of tne PhPelt 
assembliv lancuage version of these software modules (3000 
ibpmes Of assembly code and tables). While the correscondence 
1S nMNot onettoroner any increase 1N $17eE Gue to Mmicrocoding 
wiil be partially offset hy eliminating routines and state- 
ments which were inserted to oermit execution under the UNIX 
orerating svstem. 

‘The data bus s1ze was determined hy the nature of 
mmemimterpreter. Only ASCII characters ana f=bit token 
memeers are manioulated. Tnhusre only an S-bdit data rus 1S 
required. 

[he ALU hancles two tvpes of data. First, the *ma- 
momrty of operations wil! involve characters and token 


mummers Of er1cht hits. The second tvpe 1S memorv acdress da- 
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tar, such as the proaram counter. This requires 16 bits for a 
64K byte memory and -0 nits for a one megabyte memory. Ran= 
@eomeaccess Memory of €4K should be sufficient, but if the 
laraer memorv 18 required anotner 4me901 and Ame9%V0e can 
easily be connected. 

ipmcnemorockeadtagqram, Figure 7, the sugcesteag LSI 
chios for the major blocks are noted alona with the number 
memmerea for fhe function in oparenthesis. fable 1 lists tne 
memati circuits as del acemereqguirea to imolement rnre COPUL 
machine. The loaqic dtaaqrams and detaiiea descriotion of 
these circuits are in Reference ed. 

Diimemewo locks are got discussed in detail: Direct 
memory Access (0M4), Interruot Control tinit CIC), and the 
Sync and Control Loaic. Sugaesteo architecture mav be found 
in Reference ec and a listing of the required circuits iS ine 
eemaaed in laole l. 

Ure otamiy iy ct Mises ea inet ne machine d1> 
aaqram are the bus tranceivers which interface between the 
various blocks and the data ana aduress busses. These may ove 


PmGombination of Am2906 ana AmeS07 or AmrebS510 chios. 
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fable 1. 

GniP NUMBEk 
Am2901 4) 
Am2902e 1 
Be 905/6// ee 
Am2909 5 
Am2918 14 
Am29/61 59 
Am9140Q 12a 
Am2S5L50/7 1 
Be OL S151 ! 
Am2SLS1ol 1 

Mererruct Control Unit 
Am2913 1 
Am2914 } 
Ame97US 1 


Direct Memory Access 
Am2SLS161 g 
Mme ot S254 1 Pd 


eyme and Enaocole Logic 


Am29750 1 
eo S157 1 
Am555 | 
em? 4LSile i 
Am74LS124 ! 


Boleros neacuirred for the COBOL Calculator 
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See AMDASM / AQ 


ihewmextmsteonim the Ggevelooment of the COBOL cal- 
[meteor 15 to convert the alaorithms to microcodae usina the 
"metatassembler”™ AMDASM/80. AMDASY/8) is a microproaram as- 
sembler which operates on the INTEL INTELLEC MDS-DOS svsten 
teger the I[SiS-II onerating system. A metazrasserbler differs 
from 3 conventional assembler in that the user must aefine 
not only labels ana symbols but also wora lenaths and fore 
meres Very iijittle information 1S predefined ina metae- 
Germemoier, allowing the user 3 great flexibility in matchina 
microorograms to a haraqware confiauration. AMDASM/80 is suf 
ficiently general ana powerful to he used for nmearly anv 
microprogrammable machine. However, it was aesigned esreo- 
mor ly for the 4m2900 family. 

The assembler ocerates in two phases: the Definie 
tion phase and the Assemoly ohase. The Definition phase, 
which 1S executed first, estahlishes the tables to agte each 
user defined format AnsmeomMstamiamames to the corresoonding 
Meeteeoatterns. The |lencth of each microinstruction worGa can 
pe agefinead TOT mec reo wnt S. soem CroOInMsStructi0n word mav 
consist of one formats, or  severa! overlapoing formats. A 
format aefines the fielas of a microinstruction and tneir 
feemee. Fields may cantain snmecified numeric bit oatterns: 
either hexidecimal, G@ecimal, octal, orf binary. The field may 
mom comntain a variable field to he filled-in gurina execu 
meron, Of a “don't care” field to he ianored, which is UsUS 


eumivea filler between other fields. The “don't care" fields 


als 


are used when formats are overlapoed. That is, formats can 
be overlappea if tne cefined fields of one format correspond 
memerdom't care” fields of the other format. 

The Assembly ohase uses the output ohase, and 
Meeeates Similar to a more conventional assemoler. This 
phase reads a symbolic orogram, performs the common assem- 
Paver fuMNCcCETONS and croduces a Dinarv output, listingss and 
tables, which are retained for execution or post=nrocessing. 

The Posterorccessing phase uses tne Assembdly onase 
Geutout to create nacer tanes Suitable for use 1N Programmina 
Peer Ss. |he user mav cefine the organization of the PPOM ma- 
trix and then create a tape PORR any Oartrocular row or 
Somumm. this wit!tt allow the user to organize the *microoroe 
Gram memorv as desitrea. Further, it 15 relatively easy to 
mmemage a ODarticular FRU” by creatina a new tape for tne 
Sesired column or row. 

The advantaces of a metarassemoler aporoacn, such 
as AMDASM/80, are flexibility and ease of use. The user mav 
agefine multiple formats with overlapning frelds and link 
meaningful mneumonics with various hit oatterns. Thus, tne 
assembler creates the bit strinas for microinstructions. The 
Meer may also write crograms using strinas of 1's and O's , 


Mmmm ao short Definiticn ohase. 


D. TIMING ANALYSTS 


/ Piaoe wre ottleyveottne Cobe! Calculator decends car- 
tially upon the time which is required to execute a proaram. 
The actual timing of the machine oerformance will occur when 
memes run in micrococe on the Intellec “DS-DOS system. How? 
ever, several important factors can be assessed by using 
manual methods and estimating the required cycles anda number 
of references to Pandem Access Memory (RAM). 

Paolesce COmtains a list of the sequential process- 
img steps) of the 4DP verbd. The size of tne data and pro- 
cedure divisions are assumed to ne 2000 bytes each, which 
pepbows Storage of a reasonahiy complex orogram. A RAM access 
time of 300 nanoseconcs was assumed for these calculations, 
ama any processina which could he done simultaneously with 
the RAM access was not included. The time of keosey mii = 
Mmeeecomcos for the fetcn,r addr and store 1s auite long. This 
value includes 4050 access to memory, most of wnich were 
used in movina data agivision bytes through the working area. 
The time used in moving these oytes reoresents 1.°15 mile 
Mmeseeconds or about Fl percent of the total execution time. 

Another example of a large amount of tire spent 
manipulatina data 1s the initialization af the proaram in 
memory. the interoreter, COIN, must find tne top of tne 
procedure division ance then locate the too of the data divis 
ome For the simole example proaram in Apoenaix A, the ine 
itialization requires R00 FAM accesses ana 1000 machine cy- 


mes. Execution of this orogram wil! require about 2509 
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accesses to memory anc 5500 machine cycles. Thuss execution 
mummers 1S about [{.05 milliseconds, of which 71 percent is ao- 
sorbed in memory access.Aqaain this is quite lona for a sime 
ple proaram. 

It must oe remembered that these estimates are 
weaver rougn. Estimaticn errors wil] be found in countina the 
number of machine cycles which corresoona to a civen line of 
assembly code. 

USIng these estimates a8 a rouGh oulce, it 15 evi-~ 
dent that the reference time to Random Access Memory is a 
major factor in the sreeda of mrogram execution. Oue to this 
problem, two possiole changes to anv future design snoulc be 
considered. First, Rardom Access Memory with an access time 
of under 200 nanosecoras should be usec. MemarY with this 
access ees 1S available, althouah et iS more exnensive 
than the slower PAM. This change could imorove execution 
time by one-fourth. Tne second suggestion is to cevelop a 
pipeline techniaue for nee access» much like the tecnniaue 
used 1n the sequencer. This could he done in microcode, ins 
would consist of loagina the next sequential hyte durina tne 
Seocessinog of a given hyte. Sieceuw. a Tajorlrty of “RA 
accesses occur during 3 linear search of tne user's proaram, 
mms SImMDOle technique could cut the execution time cy @e5 


Bercent. 
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eons ice. 2. SoMPEESTIMING FOR AN ADD STATEMENT 


TIME AGT? UR 
41Qns man token numper to sympool table entry 
6b60uUS search data civision for a variable norintname 


(assuming 1000 character compares) 


S55ns fetch next token number--does it eaual 'TO'? 
300ns fetch next tekken number 
660uUs S@arenmdaes Civision for second veriable porintnare 


(assuming 1000 cnaracter compares) 

Pecus align decimal points~--assume two zeros 

4.5us access aritnmetic tables =sassume loncest ooerand 
Mas tO wevarts: * .95 us7dgigit 


sus transfer data from ouffer to memory a col 


meo56 ms/acd 


oe 


Pee eC OMMENDETIONS 


Piiemeanes tS bepresents only the first halif of tne 
Hmeerementation of a COROL calculator. The next onase in= 
cludes the final machine desian and conversion of the ‘C'! 
lanauage orogranm modules to microcode. AMDASM/80 would be an 
aoprooriate Ino uage:< 

vom rocilllowioao are yters which can be considered if 
Bumemexpension of the COBOL calculator is desired. Each of 
these items was consicered during the initial design cf the 
eloaorithms; Miiespoumld be, relatively straranttorwaraq to im= 
plement. 

Puirstwemtne cdeuthmetic Ppacksae could pe exnoandec to 
handle exponentials. As oresentliv written, the routines are 
inaependent of decinral ooint cositian once the location 1s 
kKNOowne. A routine to cetect and manipulate the exoonents Can 
memocgcec to poth the rultiely and divige routines. For the 
add/suotract routine, the section which alians the deciral 
points must oe exmanaed to adjust the exponential values. 

BeeconepmexOamstom to allow for beth upder anda 
lower case ASCIT characters has some value since tf would 
improve readibility. The editor, CUED, will presently allow 
upper case characters anywhere in the Identification and Fne- 
meeronment divisions. [f the token routine 18 modified to 
detect uoper case letters when looking for a symbol name in 


MEMO staadiviston, all user defined svmhols can contain els 
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mmemmmumoer or lower case characters... Im the Procedure divi- 
SION, however, al) Peserves words must contain only lower 
case characters because thev are entered in the symbol table 
in lower case. [his can be easily cnanaed to uoper caser or 
a mixture of the twor bv chanaing the svmbol tahle entries. 
However, Dumeiayemot Oe mot oractical to allow the user any 
mixture of upcer and lower case characters for the reserved 
Moras, Gue to the |imitea size of the symbol tahle. 

MeenweG sites Of exoansiom could o6e a C¢naracter 
Sorting ability. This could be accomplished relatively easi- 
myversamce the JjJine to Fe moocified is in the line buffer. A 
ee) ficant mumoer cof revisions to the moaify and inout 
routines would he required, however, and it was not imple- 
mented at this time. 

Dicmicuct mare oge of imorevement 15 the inclusion of 
eeeeeeouq facility. Iris 1s probaklv the most important area 
of imorovement. The denug routine woulda nave the value of 
all declared variables available since they remain with the 
maeomam until reinitielized. Thus 1f a ftatal error occurs 
during the interoretation onase, the error routine needs to 
im@oure that the subroutine stack and the orogram counter are 
saved. The debuager would use the various search, matches and 
find routines which have alreadv heen implementeo to cetera 
mine the value of ary desired variable. A restart coulda ove 
Seistty accomolished ov nassina the interoreter's initializa~ 
mom routine. 

In conclusicn, tne first mhase 18 comolete. int 


the Sounrse of this fhesis, several immortant concects were 
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implemented. It was shown that Seecweviom GCalrctulatonr “ws ine 
meee algorithms tc interpret a basic version of COBOL is 
technically feasible. Tt was a@)1so shown that there are some 


unresolved questions as fomcmne -ooerat tomal feasibnrvlity of 


Pars desian. 
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APPENDIX A. 


GCHEDsEoho! 


EGistoc « 


Version 


Lert 


AU V0 clemt treation Division. 


xAQO10 
cx AQNeEDN 


x*BRQ000 
*RQ019 


SOO 15 
zkRPQONLS 
tC Q0000 
eC ygio 
*CQ020 


Se 5 0) 
kCO0040 
x0 U050 
eC QN00 
*CQ0070 


«C0080 
«00090 
*f0100 
ORY 
FG Oet 10 
AGT a 0 
2G 12 0 
Aieot 50 
tNQ00N0 
*N0019 
tDQ020 
*00950 
AHO SS 
zCFO040 
*DNQ045 
mo 50 
AO) 55 
tl 0060 
*N0065S 
00 7 0 
«DYQ080 
«D0090 
tory (50) 
zxBQ020 
C0140 
aan 5 


Proaram name. 


AG@ENOF « 


GiOmiey 


Favirronnent Division. 


test. 


Sear Cuma t dom. oeC tT 10M. 


SOUrGcemcomouter. 
PDr=-11750. 
irre uw lt 


hans 
ry 


Hata Division. 


File 


tc filesin 


aqata record 


Ut empD-1n. 
03 namerin 
03 nesein 
Vix. ratecin 


tc file-out 
recora 
GO| emon7out. 


data 


Sec tion « 


03 namecout 
03 filler 
US pay 


03 pay 

ons tiller 

03 total 
PReeedimte ct 1y 1S 110N.. 


UT0=main. 


read enprin. 


Tienane =i) MuMmer ic 


GS 


1s 


he oeleted 


oe 
Src 
O1c 


Sc 
Src 
Sic 
One 
oa ae 
eyilte 


Ge) 


cerform 039%-process. 
N2eN-endtest e 


Swope. 


O030-process. 
rove namerin to 
multioly narsein 


meve 1G abel ne tO Oa Vv . 
add Cay “ter rot al. 
write emprout. 
US im er 47h < exit. 
remarks. Tiaas 


Sie 


cen eee leRM I NAL SESSTON 


Water. 


eamow-in. 


veo 8 a 
aig. 


099,99, 


aie) =e U | s 


ra 0 


vil LU ).< 
o.a9 


qg9,99, 


omy 8 Ys 


QV20n-enatest. 


namerwout. 
Eve ate = 1M. 


momo etest orocram to 


value U. 


calculate the pay of an emplovee 


inserted anywhere. 


erogram to 


“4 109) 
929. 
0g9,09, 


x (10). 
et 0) ae 
999.99. 
x (10 le 
$9,999.99 


inserted anywnere. 


Vauiies.0. 


go N20-endtest. 


aia 


MaSEG On nis pay rate ana the 
heurs worked. 

*D00005 * this is an example comment, 
which can be 

*AQNQ0,E 

POW sient itication Division. 

ROC 0 Proaram name. test. 

AN0Q20 Author. 

Conlev. 

A0N02S remarks. Diese) Sao cCest 
calculate the pay of an employee 
based on his pay rate ana the 
heuUrsS worked. 

A0030 

BOVND Environment Division. 

80010 Verne) Gurat Tomwroec ft 1On-. 

SOUrCerGorouUter . 
PDP-11/5N. 

Bode 0 

SUOCUN Data NOvvision. 

6001.0 Pane See tC1lon. 

COULU fe filerin 

data record 19 emorin. 

CVUsy 01 emonm1Nn. 

COOQ4Q 03 namertn Brie 

e005 0 US Shrs=1n pac 

LN060 U4 raterin pic 

C0070 fc file-out 

SaieaseeeOrageys eNo- Out. 

COU Ry Q | emorout. 

ng 90 03 namerout one 

C0109 US eetaiter OAc 

Gos ey) (Oey one 

CN1P0 03 filler uc 

C0 130 Vs total SiG 

C9140 

DNOOU Procedure Division. 

DN005 * this is an examole comment, 
which can be 

D0010 A10=<main. 

DOVEY read ero-in. 

DNV 30 1fS narmerIiNn numeric 

DNQ35 Gecrocm (59=eroqcess. 

VNU4O U20-endtest. 

DOQaAS stop. 

DOOSY 095Ne0recess. 

pugs > move namerin to namerout. 

CDOQ60 multior:y mres~in by rat 

DOUV65 rove raterin to pay. 

DOO7Vu Baio Oav “oOo bots i. 

DOYROY write emorout. 

VO0090 ASfeexit. exit. 

ale 

ain t 
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Bee END IX 


<program> 


<3d-divo> : 


is 


saith 2s 


<date> <i 


Ssec> ::= 


<comment > 


—e=iiv> $: 


Soe -O | > 


Saemuas \s.: 


Bh. GRAMMAR RULES IM BNF FOR MICRO=-CUROL 


J oCavelereaAr LON DIVISION, PROGRAM=[D. 


<commrent> . <auth> <date> <sec> 


MUOK . <comment> ,. 


<empory> 


PoTb=Wie Thien 2 seomment> 


<empty> 


SE Cuicciiyweemc comment >: 


<emoty> 


| S<ecormemt> <inout> 


<scr=cbdj> <i70> 


Se noeue Ce =-COMFIUIER . <Ecomment> <cetua> 


GAVEL T=CUMPUIER . <comment > 


= DFBIUIGGING MODE 
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=E=aycd-adiyvy>  <e=-Gdiv> <d=div> <p=-div> 


ENV ERONMER | Diplo tGhe. CONFIGURATION 


SECTIUN. 


14 


es 


‘16 


1? 
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el 


ec 


as 
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25 
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e/ 


oR 


; <emoty> 


oe ss= (NPUT=ULTPUT SECTION 


ee ee CONTROL. 


< fy - ’ 
Pree =comerpol=)ist> <yc> 


1 s<emotye> 


§ < f ; = ; 
; rle=controlw-list> <file=controlrent > 
5 = i y 


mmme—-controlicsentry> ::= 


Sie Cmea NO oat trae ute = list > 


marc rioute=i1ist> ::= <one attrib? 


, 
Pease to vouwete=)|1St> <one -attrib> 


Z a : 
emen@~attfriob> ::5 CRGANIZATION 


<ore=t yoe> 


PAC 
PSoncacec=t yvoe> <relative> 


mee oo GN  <iapwt > 


eorg=tyoe> ::= SESUENTIAL 


Pree A tel 


Pre relative attribute 


mace=tyme> ::= SEGUENTIAL 


fis 1S the default. 


; PANDO-M 


A 
The random access mode needs 


Teomscaveqdaror oroduct ion 


Bo 


to be savec 


for 


Nae, 


Oroouc = 
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31 
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oS 
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Ds 


56 
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34 


.e) 


40 


4} 


4e 


43 


44 


45 


46 


eirom 19. 
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<relative> $3 


meme 2s= I17-O=-CONIFOL . <same-list> 


SRC itievE <1d> 


' <erpot y> 


1 <emoty> 


<same-list> ::= <same-element> 


<samerelement> $3 


» <samerlist> <samer-element> 


Save <voesctrimas .« 


mmge@stTine> ~<:= <id> 


eee ivy>  ¢:= DATA 


Srple~section> :3: 


een te=|ist> 


Siyles> ;2:= FH <j16¢> <fyle-control> 


Pmt e=control> 2: 


Pvt olOiNeeee< ts Wl e=Ssectri0on> <work> <hink> 


jaeev G-String °<1c> 


Petco.) Len 


<emory> 


<filerelement> 


<file=-list> 


<emot yo 


etamie=—ili1st> 2<2= <f3i)le=-element> 


4 


ems t > 


Tet em ast > cfs )le=-el]lement > 


- <recorardescrintion> 
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BO 
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59 
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<fijle-element> 


The record 


Gaiculated lengt 


meec=count ? 


RWwork> << ° 


aiaimk> 23 


<recorda-descriptian> 


* ® 
es 63 


BLOCK <int 


» <file-list> <file=-element> 


SQe Come e Ours 


RPEEOQRD <rec-count> 


length can be saved for comparison with the 


hR from the oicture clauses. 


LABEL RECOPDS STANDARD 


PAGeteeseeur Uo eM TT TED 


Volo a ere < 


= <intecer> 


Ta=—Sst fi na> 


+ Sinteger> TO <integer> 


WOPKING=STOARAGE SECTION . <recordecescriotion> 


<emoty> 


Ka Ge 


<empty> 


<leveleentry> 33 


<datawrid> 


Se 1 1 OME. 


<rpecoro-descriotion> 


<jeveleentry> 


' §~<rpecordedescriction> <levelwentrv> 


<jntener> <datarid> <redefines> 


<data~wtvpe> 


4] 


63 


64 


65 


66 


o7 


oka 


o9 


10 


7\ 


ie 


aS 


mpegerines> ::= REDEFINES <ia> 


MmemReGetimMmes O@LCIOM Gives new attributes to a orevic 


gauisly defined record area, 


' <emotv> 


morara-=tyoe> 3:2:= <croo-list> 


; <emoty> 


Sorao-|list> ::= <cata~element> 


<Grao=i1st> <data=-e!lement > 


<data-element> :3:= PIC <irput?> 


immer si1neut> at tnis poinmt 1s the character string that 
Serines the record field. 
Peuos GEC UMP 
The field 1s defined to be a nackea numeric field. 
eso iG) Lorian y 
Ire  UlorPlLAayY forcrat 1s the default, and thus no special 
see ton OCCUrS. 
’ SIGN LEADING <serarate> 
This oronaguctian indicates the presence of a sign In 2 


4e 


74 


75 


76 


ia 


78 


79 


oh) 


81 


numeric field. fre wesian witl he 1m 9 teadina oosi= 


iON. btimenem<—Semparate> indicator 1s true, tnen tne 


lenath will be cne longer than the oicture clauser and 


the tvoe will be chanaed. 


Pes leENSIRATLING <separateo 


mae same tmtormation required pv production /3 must oe 


aaeoaraeqd, Outen this case the sian 18 trailing rather 


aman |'eadina. 


meCceGUuRsS <\iateqer> 


Mniomeype must te set to indicate multiple occurrences. 


ro) Vee <cwmect 10n> 


ee <4 Gets | > 


The fiela being aefineg will he assianeac an initial 


value Geterminead SV neva liuerwor fhe literal. 


“mrrection> $::= LFFT 


@erarate> ~<2= SEPARATE 


82 


84 


ol) 


86 


ont 


BR 


89 


90 


1 


Ge 


9% 


G4 


oe 


96 


97 


gr 


mytera!> :33:= 


This lite 


<inteaer> 


—To> <¢s= <7 


Seeagive 33s 


<usina> :3= 


<jarstrina> 


Soroc ~DoOCcV 2 


<nparagqraoh> 


ie SeTrpt y > 


Balwealsearectioted string. 


Wie nc6) 


SPACE 


QUOTE 


nput> 


PRUCECUPE DIVISTON <using> 


<OFOC=bDoOGV2 ECD: ~ 


USING <iq-strina> 


<emoty> 


@¢ 
e@ 
1 


<id> 


<yorostrinae <id> 


=" <Caradroaone 


MESCecnOC-OCav>  <maracraph> 


<iag> . <sentencenwlist> 


e¢ 


' <iqg> SECTION . 


4 


99 <sentencer-list> :2:= <sentence> 


1090 ; <sentence-list> <sentence> . 


reo | “nemtence> ;:= <imoerative> 


10e mEeSCenai . tone | > 
105 PeEN TER  <1d>> <oot—-10> 
lms comstrucr 31S not imolementecd. An FNTER allows 


Statements from another lanauage to inserted in tine 


Source code, 


104 “momrat)ve> ::= ACCEPT <sudid> 


10'S . <aritnhnmetic> 


L100 ea ome le yet rays 1 a> 


This is not imolemented. 


fen? P PGIRGS EE <td> 

108 PES UE ayes | 

109 poeta yY “<1yt/1rd> <ooftf\"lit/ia> 
ae wees Ul  “<orogram i102 

‘ae (+ €O <ta> 

ele meeor<1d=strima> UpPENDING <1: d> 
eS meee ve eo l nt =1o> 10 <subi d> 


45 


114 


is: 


12v 


inal 


ee 


123 


124 


hee 


). fale. 


ey 


ite 0 


ie 9 


<conditional 


& 8S ooerato 


Broduction 64 


<Aritnmetico 


<filemractr> $: 


<COnaitircn> 


> 


r 


CPEN@<tyoe=action> <ida> 


poem <icd> <thru> <finish> 


< 


S 


1 


readeid> 


TOP <terminate> 


v= Sareithmetic> <size-error> <imperative> 


<(3 le-act> <i1nvalid> <rmoerative> 


SeccouUreto icomo le.te- rhe Sranch {fom 


Mire <conmneyh |oOme sac tlom> CLILOE <1imperat: veo 


<readn-1d> <special> <imoerative> 


=a Poe <7 iG> <oot=|/)1da> 10 


<sup'O> <founco2 


CIVINE <Il/iag> INTO <subid> <round> 


Viaemye <i soe) bY <sub1a> <round> 


Seis |/ 102 <oot=|/1id> FROM 


< 


SUDI0G> <round> 


Peet, <i> 


REWRITE <iada> 


WHRITF <yd> <specialeact> 


<lit/id> <not> <cona=tvpe?p 
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moe <COnd=tyone> 3::= NUMERIC 


leat Pe ALRPHARETIC 


13e Ps eGempare> “ay ' /ida> 


134 ; <emotv> 


meme <cOmoare> ::= GREATER 


130 ees S 


ies © EQUAL 


Moon <ROUND> ::= ROUNDED 


139 7 semotyv> 


149 Scerminate> *:= <literal> 


14] pe clin 


Meee <SOecial> ::= <invalid> 


eet 5 ye odd 18) 


Mee <Oo0tw“Id> ::= <suhid> 


,as ; <emotfy> 


146 fae TatOono es. = <imoerat ive> 


a / Mees SENTENCE 


a7 


Mom <thru> :;:= TRRI <id> 


149 ; <empty> 


meme <finish> :2:= <)}/id> TIMES 


it foe “coma t 1on> 


Sie 1 <empty> 


meme cimvalid> ::= INVALID 


Mere <Size-error> ::= SIZE ERROR 


155 <soecialsact> 3:3:= <when> ADVANCING <how=many> 


i Site} ; <emotyv> 


ts / Swhem? :°= BEFCRE 


158 ee bles 


159 <hRow-manv>::= <integer> 


16V 1 FAGF 


161 Po Oe = aic 1) ain oe aie wa 


roe ee ee Gt 


163 5 ESAS 


164 ScoumoVde 8f— <Ssitoscriot> 


io > ( <3q> 


meo <integer> ?:$ 
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Wey <10d> 3;2:= <inout> 
Meee <+!1/710> 3:3= <inout> 
169 1 <suoscriot> 
i 0 eal 
iemeeecsuUDScrict> ::= <id> ( <inout> ) 
Meee conte l/id> ::= <Il/id> 
17 5 ' <eroty> 
Meee <nn]e-lit> s::= <}ir> 
ie > Soro E 
L7o Pee UGE 
ieeectiteral> :3= <nne-lit> 
178 1 <inout> 
a ee sae 
Meee <lit/id> ::= <l/ia> 
eS 1 mecmoa= | it > 

Meee sootrlit/id> ::= Sie ice 
a 3 ; <empty> 
184 S“Oroaeram=1d> ::= <id> 
aS ; semoty> 


Ng 


a 





‘ 
<readwia> ::= READ <ic> 


: 
: 





arene tx Ee COFD USER'S MANUAL 


Wiveemantial Gescribes the facilities of the CUROL 
Smepcor, COED, which is desianed to run on the UNIX operatina 
memmemeact NPS. his editor is the first, and mandatory, 
steno for writinae a CORUL orogram to be executed ov CUITN, the 
Somme ynteroreter which also run on UNIX at NPS. 

The following items anply to ocrograms written use 
mao, COED; 
ower case ASCII cnaracters are usegq excect for line 
numbers, as nected velow. 
Bemeecach CURO! sentence must nave a unique line vrumoer, 
mercm 1S entered by the user uSina the formats noted below. 
Beeeereriods, blanks, tabs-e and newline cnaracters mav 060 
freely inserted in a line to imorove readibility. A period 
followed by a newline characterr however, 1S treated as an 
eomo,r !yne indicator. 
4) The COBOL sentence must be less than ?56 characters. 
5) Each CURBOL sentence must end with a period anu newline 
mearacter ‘.(CR)'. No blanks are allowed hetweenr these 
characters. 
o) Lines may be entered in any oraer; the editor places 
them in ascending numeric order. 
7) Four line numbers must he oresent with the followina 
mormat : 


mover iagenmty fication division. 


ae 


bN000 environment division. 

OOo O Gata civision. 

UNM Up rocecure Giv1sS10n. 
The following items acply to line numbers: 
meee bine nurbder consists of one of the ueper case ASCII 
meormacters followed oy four digits. 
c) fhe ASCII alphabetic characters have special meanings 
Peery «6h DHE 6proaram. Tne cnaracter indicates the CUROL divi- 
pmomermtO which the line will be insertec. 

Poorerepresents the ITDFINTIFICATION DIVISTUN 

BX¥XXX represents the ENVIPONMENT DIVISION 

CXXXX represents the DATA DIVISTON 

DXXXX represents the PROCEDURE DIVISION 
5) igeenaour dicits indicate the oosition of the line within 
men division. 

When the editor 18 called 1% will respond with an 
asterisk, ae eit NS Cher ready f6 accept a new line. ams: 


asterisk must always te followed ty a line numoer. 


mie 


SmEMENT : 

ADD A NEw CINE TO THE PROGRAM 
eeORMAT : 

<line number> <COROL sentence> .(CkR) 
MeoerIPTiION: 


The eaitor witl fing the om ol elo as Foceat3 on 
Meorresponding to tne line number. The line 
number and EremeusUl sentence UO to the EOL ina 
dicator are ertered into the memory area. I f 
Ewe sentence is in the Procedure division it 1s 
converted te token numoers hefore being entered. 
Utherwise, the ASCII cnaracters are inserted 


eo rectliy. 
Ere AMPLES: 


AN010 orogramn“id.(C R) examrlie. 
CO0&4Q O01 datarin Rie Moxie CR) 


eee OU 6nd Clk CUtlol CUy. (CR) 


aS 


ELEMENT: 


ADD A BLANK LTNE 


FORMATS 


<line numbrerr(CR) 


<line number? .(CP) 


Bieoen I PTLON: 


pmerlamk |11mne 15 inserted in the proaram. This is 
useful to imorove readivility and may he usec 
freely. Noge that tne first ootion will result 


~ 


IP a cleaner orinting. 
EXAMPLES: 


we 00. (CR) 


COO04U(CR) 


oe | 


meeMeENT: 


COMMENT 


FORMAT: 


“ryme muimber> * <ASCII string> .(CR) 


MeoekIPTION: 


[f the line number is followed by a sinale blank 
and then an '*', tne interpreter will ianore tne 
rest of the line up to the oerioagenewline. Come 
ments may ove freely inserted in any division and 


mimeo ways storeco as an ASCII strina. 


meer LeES: 


DO1OQ0 * This is a samnole comment. Tt may he 3 


maximo of cS6 characters. 


ae) 





eeeMeENT : 

Wee fe A WINe 
FORMAT: 

<line number> afCR) 
DESCRIPTICN: 


ive slime 1S foaurd 1m the orogram area and al] 
characters or token numbers are deleted. Note 
that no blarxs are allowed hetween tne 


fa wand tne '(CR)'. 
EXAMPLES: 


ec 00d (CP ) 


56 


SeeMENT 


MOUTFY AN OLD LINE 


FORMAT: 


<line number> m(CR) 


BeockIPTICQN: 


lememeaitor will orint the line as written, then 
emac the line number and wait for instructions. 
The “user has tnree options: 

1) type <COBNL sentence> ton renlace tne rresent 
pemrence ending with a °'.(CP)*, 

Bye tyoe c(CR) to aelete the line, 

5) type (CFR) te leave tne line as written. 

Note that no character editina cacability is 


mai table. 


EXAMPLES: 


ADQQGN m(CR) 
DOQ04Q ada x to v. 


maori acd 2 to y. (Ck) 
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ELEMENT: 


fae LN 


FORMAT: 


<line number>,<line number> (CR) 
<line number>,£& (CR) 


<line number>, (CR) 


PeoenIPTION: 


Myertirst format causes all lines to be orinted 
Starcyima at the first line number ang continuina 
until the secona line number has heen printed. 
The second format causes al! l]ines to be orinted 
mont ina at the first line and continuina until 
moenwend of file indicatior. 

The third format causes that line numher only to 


pe orinted. 


EXAMPLES: 


A0NQ10,80090 (CR) 
PmOOOC0,E (CR) 


AQNQ00, (CR) 


are 





ELEMENT: 


Burt EVITOR 


FORMAT: 


q(CR) 


euyt (CR) 


mmoekEPT LON: 


Bait is terminated. 


low memory, 


bol tacle 
orocram's 


we, NUL. 


eloesing uD 


The erogram 
tne 
direct) y 


and anv deleted entries are set 


Bs) 


1S WRItten 
HOP Kk SmaCce . 


tol VowinG 





APPENOIY BD. COIN USER'S MANUAL 


Itism@anlialedescribes the subset of MICRO=COROL 
Currently accepted by the COBOL interoreter, COIN. The fol- 
lowing conventions are used in exolaining the formats: 
1) Elements enclosed in broken oraces < > are complete ane 
tities and are descrited elsewhere in the manual. 
femeerements enclosea in stacks of hraces { } are choices, 
mmemorf which must oe cheasen. 
mmmmerements enclosed in brackets [ ] are ontional. 
4) All elements in capital letters are reserved words and 
must oe spelled exactlv so that they can be marnped into the 
correct toKxen numbers. when usina CUFD and COIN however, 
the entire CORUL procram is entered in lower case charac 
Gers. 

User definec variab!es and maraaraph names are ine 
gicated as )ower case. These names are restricted tec 16 
cheracters mca acthe Variable imnames must bedinm with an ai-= 
Bhabetic Stragacter and must he declared in the Data divicg 


mrem.e Faraoraph names must begin with a numeric character. 


ELEMENT: 


Moen eeeer TON SP av ISTAN Format 


FORMATS: 


MeENTIFICATION CIVISION. 
PROGRAM=-ID. <comment>,. 
(AUTHOR. <comment>.] 

Heal ewPITTEN. <comment>.] 


(SECUPITY.<comrment>.) 


WeoekIPTION: 


mer SeayViSion orovictes information for 


maemtytTication for the resacer. 


EXAMPLES: 


molemt if 1 cation Civision. 


oroaoram\-id. samole. 


6 | 


Srogram 


PLEMENT: 


ENVERONMENT DIVISION Format 


FORMAT: 


ENVIRONMENT OTVISTON, 
MONeEIGURATION SECTION. 
feOoURCE=COMPUTER. <comment>.!] 
[OS JECT=COMPUTER.<comment>.|] 
mere r=OCUTPUT SECTION. 
eree-CONTROL. 


“—file=controlsertry>.! 


DeocCRIFPTIONS 


ereeeresent, this information 15 Gmorre os Unce 
mae © O0BO0L calculator is epersational, it wil! oe 


needed for specifving input and outout files. 
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eeeveN |: 


Poreas OL VEiSION Fermat 


FORMAT: 


DATA OIVISION. 
(eile SECTION. 


{FD filename 


(<record-descriotion-entry]) 


BeacokIPTION: 


This section descrihes how 


tured. 


og. 


rhe 


Benigs 


gata 


ics 


St FuEe= 


ELEMENT: 


k<€comment> 


FORMAT: 


mecamy string of ASF IT characters> 


DEoCRIPTION: 


-ITf a space and an ‘*' gdirectiv follow the line 
fuinwer, ali characters until tne '.(CR)° are ig- 


nored ov the interoreter. 


EXAMPLES: 


DOOrG * this is a Ssamole comment. (CR) 


64 


BeEMENT : 


<data-descripticnwentry> Format 


FORMAT: 


level=number f{data-name} s 
{FILLEP} 
fPIC character-string 


(WALWE Weharacter=string]) | 


BeocRIPTIONs 


mays statement cescribes Slee) ig SOeeci fic at eel 
butes of the data. The VAIt.UF elause 18 used to 
mamea1ize a variable to a specific value when 


mee norogqram becins execution. 


mx AMPLES: 


Mibeagata-in. 
92 part Sree Koo). 


V2 mum mic 99 value 0. 


65 


SeE™ENT: 


PROCENURE DIVISTON Format 


FORMAT: 


eee CENURE DIVISION. 


Pearaqaraph=-mamnme.! <sentence> [{<sentence>.ee] cec« 


PeseckiPTian: 


insceayvisiom centains all the executable CURUL 


Starements. 
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ELEMENT: 


<sentence> 


FORMAT: 


<imoerativerstatement> 


<condition=statement > 


ae! 


SeeMmeNT: 


<imperative=statement> 


FORMAT: 


BeCEPT 
ADD 
meOSe 
DISPLAY 
Mery IDE 
GO 

MOVE 
WL TIPLY 
WIPE N 
PERFORM 
RFE AD 

a OP 


WRITE 


MeoeRIPTION: 


Pees DISPLE4Y, OPEN, and €LOSE are current} yv 
1eonored hy the interoreter hecause they cepend 


on devices external to tne machine, 


he 





BEMENT s 


<conditionale-statement> 


FORMATS: 


Ga 


AY 


BeeMENT s 


ADD 


FORMAT; 


ADD {identifier=e1} TO 1dentifier=-e2 


{literal} 


DeoscriIPTION: 


This instructicn adds moentepr1er=!/7literal to 
identifiere-e ara Stores the result tn 1dentrife 


yer-e. 


EXAMPLES: 


mad 11? to total. 


7Q 


ELEMENT: 
DIVIDE 
FORMAT: 


DIVIDE {identifiere1} INTO {identifier-2} 


fisctved’ al + 
Poe |] TON: 


This Vist rue t 4M divides identifiere!l/literal 
rat O identifier=e and erores the result into 


identifier-e. 
meme le S: 


eryvyaqe & into tctal. 
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ELEMENT: 


GO 


FORMAT: 


GO naraaraph-nare 


meoekIFTION: 


The GO i inStruction causes. an uNCcCONditional 


Meamen to the scecified oaragragoh name. 


PeeemeLes: 


pies |U—begin. 


ee 


meee N I : 


Us 
FORMAT: 

EIS ono | poe ratives 1} [FLSE imoera- 

tive-?) 


Cee ep 


PeoerIPTION: 


imjeetne cCOnNdition evaluates true either imoerac 


tive-l or the next sentence in the procram 
executed. If the condition is false-, either 


perativesre 1$ executed, or the next sentence 


skipped. 
EXAMPLES: 


jre@ Greater b co l0=heainWelse go 3U-end. 


yt x mumeric next. 


7S 


1S 


im= 


1S 


ELEMENT: 


MOVE 


FORMAT: 


Meyer <identifier=-1} 10 toentifier=ce 


{literal} 


DESerIPTION: 


Er1ther the value stored in identifier-! Cr 


Myteral value 1S stored into idaentifiere-ed. 


EXAMPLES: 


mome 10 to subtctal. 


move sub=total to total. 
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tie 


ELEMENT: 


Piet PPL Y 


FORMAT: 


meer bPePmyefidentifier=1} BY identifieree 


weiter a !} 


Hese@RIPTION: 


Pe multiolvy instructior causes identifier-! to 
be multiolied Fy tdentifier=?. The result must 


be adle to he stored into identifiern-ce. 


EXAMPLES: 


mort tioly 3.5 by 3.982. 


ies 


SiGEeMENT s 


PERFORM 


FORMAT: 


aa PERP@RY paragraoh=-name (THRU paragraoh- 


name-ce)} 


a PERFORM paragraoh-name (THRU Oaragraoh- 


name-2} 

frgentifier? (TIMES 

{inteaer} 
oe PEPFORM paragraoh-name (THPU paraagraoh- 
name-e]) 


CSP <cordit 1o0 > 


PeoeniIPTIONs: 


maps wnStructior causes an unconditional branch 
to the specifien oaranracoh name. "hen the return 
conditions are ret, execution resumes at tne ine 
Srmuictyom followina the PERFORM statement. At 
present, PERFOR” statements can be nested elaht 


levels deep. 


EXAMPLES: 


perform |%-ehenir. 
perform l10-read thru P0-enad-read. 


oerform 190"-reao until card-in numeric. 


To 


SEEMENT : 


READ 


FORMAT: 


READ f1le-name 


PeoerRIPTIONs 


Data is read from some externa) device into tne 


Data aAivisiom entries for that file=name. 


Peer LES: 


read datawIn. 


el 


ELEMENT: 


=) OP 


PORMAT ; 


STOP (RUN} 


DESCRIPTION: 


fas Statement causes the interoreter to reel te 


and return control to the monitor. 


EXAMPLES: 


Stop. 


its, 


FORMAT: 


WRITE file-name 


Paoerk irl iON: 


This statement causes the values wn tne Data 


Givision associated 


to he printed on the 


Searles: 


mpire total. 


with the specified file name 


mew orimter. 


12) 


SeeMENT: 
Seoqndi1<.ion> 
FORMAT: 


RELATIONAL CONDITIO®: 

Peat ier 1) (NOT? {GREATER} {identifier} 

{literal-1t} LEP oo} fi stera) <2} 
(ENUAL} 

PeAos CONDITION: 

yWdentifier fNOT?] {ALPHARETIC} 


{NUMERIC} 
PeaaenirilTOn: 

Identifiers are tested as snecified. 
EXAMPLES: 


total greater 100. 
number not numeric. 


enaracter equal voeta. 


&Q 


SOURGE LIST i; -— 


COED 


*define EOL OLTT 7% end of fine character 1 
*define MEMS I'ZE 4994 “x size of memery azea 7, 
define RWORDS ao 4Z* vnamber of reserved wards °%-’ 
#define SPACE 0 

*define TAB 1 

*define PERIOD 2 

*define F TILLER Die 

“define ERR 9 

+#define ADDLINE j 

*define MODIFY = 

#define DELETE 3 

#define BLANK 4 

*define ror o 

“define QUIT ty 

*define LI Ore: 3 

“define FQUAL 2 

*define GREATER | 

*define TRUE 1 

“define PASE; fy 

*jefine CR sal 

#ine lude “tabie” 

/* The following characters have special significance in COED Sis 
Z*  *AQQOOO” the first Line number and mandatory “JDENTIFICArIORN */ 
SE DIVISION." tine entry. re 
4/* *BO908" mandatory “ENVIRONMENT DIVISION." tine entry kt / 
4* *€09008° mandatory “DATA DIVISION. " line entry * 
/* *D)@008" mandatory "PROCEDDRE DIVISION. * line entry <7 
7* For the following Items ‘CR’ is the newline character for UUM x7 
1*® and °“NXXXKXX® ig a correctly formed line number. He: 
aoe”. CR" end of line 7 
/* "“KXXXX dcCrR" delete this line ale 
/® “KMXKKK mCR" modify this line A 
/*& "KXXXK «x (ASCII string>.CR " comment line 7 
/* "“q CR" or “quit CR" quit the editor K/ 
/* NOTE: LOWER CASE ASCI[ characters wili be used by the proersmer */7 
7* except for comments and the [Ist char in the line rtunhber.*/7 
/* THis version will genernte® sequential Line numbers. If the */ 
/* user wiahes to change the line number, type the new line nur ber */ 
“*  immedintely following the [st number. [f the user wishes to a / 
7* increment the numbers by one. Instead of 10, type a line vurker  */ 
/* with a least significant dlizgit of 1 thru 9, i.e. not 9. %/ 
char 1b{ 256]; ‘* Inout line buffer */ 
char tb[ 256]; ‘* token buffer K/ 
char atl 4096); “*e print name table */ 
char ec int Ole: ‘* current Iine * buff f/ 
char temp; ’“*® temporary char hoff *7 
char ine inl MEMS [ZE] ; /* memory size sg 
int lip; ‘* line buffer rointer “7 
int tbp;: ‘ss token buffer pointer #7 
int shp; “sk lat char of <«vm in Ib" 
Int ens =? top of area ! sa 
Int epa: kr bottom of area 2 zd 
int teofion: ~~ editor action 4 / 
Int ea; ‘ top of symbol table 7 
int Pm: “Fe top of memors Ye 
int ded: (4 delete Flag KS 
int ent i; ete ~ “iwerecime nt "1: 7 


“ve sf 


Foe ae) ERLE GR 


#31 


error(s) 
char *s; f 


/® When an error is detect-¢. 4a 


/* that the erro 
7*® peinted. 


int n; 

action = ERR; 

for (n=O; a<lbp; 
putcehar (° * 

putehar (°*'):; 

putchar (CR); 

printf (""%s CR", 


inpnt (mod) 
int mod; ( 


oD 


rowas detected and 


n++) 
Jae 
a); 
ite (PITT ©, 


if inserted at the point 
the anprapriate messore is 
YX% i{neerf an * at error 


4# print the error snse¢g 


“7* This routine accepts characters from the console and moves 
“7* them to the input buffer, LP. It then will analyse the 
Y* input to determine wna’ action the editor will take. 
/* The parameter MOD Indicates if the actlon invctves a new 
/* tine or a modification «of an old line. 
int next,digit,number,l; 
putchar (‘°*'); “* input request char 
action = ADDLINE: 
if (mod == 8) € /* input a new line 
lbp = @; 
if C1bf£0} >= ‘*A*S 88 fb(9} «= 'D’) ( “* line #* in line buff 
lf Cib€4) f'= 'O") 
4/*% if the last dizit of the fine * is not °9' increment 
the line number by 10 otherwise by |. 
digit = 4; 
else 
digit = 3; 
next = TRUE; 
while (next) { 
next = FALSE; 
number = Ibldiriti+t: “* increment line # 
if (number>'9' 88 digwit!=9) { -* check for overflow 
number = ‘9°; 
next = TRUE; 
) 
ib€digwit] = number: /* put number in buff 
digit = digit-1!; 
} 
for (Ibp=O; Ibp<5: lhp++) /* print the new + 
putchar (Ilbl( fibp]):;: 
} 
else [f 4/* print curr line ¢# 
for (Iibp=0; lbp<5; ibpt+) 
putchar (cin{€ lbp’; 
) 
bf ibp] = gatchar(); 7* read the Ist char 
if Clb€lbp}>="*A° BB tbl ihp!? =°D"*) ( “* check if a Line * 
ibl@} = ib€ lbp]: 4* write over Ist # 
for ( Ilbp2=l;: tbps5: Jbr++) y*% pead the rest of # 
Ibl lbp) = gwetchar!?: 
ifecibt lhe leeeel's tbl lbp)]>’9*) 
error€ "INVALID LINE NUMBER") : 
} 
Ibf lbp] = gwetchar’! ) ; 
while f ib€ lbp) =5 ‘) ~ stip hlanks 
Ib{++ibp)] = gsetctwer'): 


» 
 / 
See 


427 


XS 
x/ 


*K/ 


nce 


else (C 
for (lbp=9; lbpsd: Ilbpt++) 
putehar (Ib{ Ibp)): 
1b{ lbp] = getchar(),; 
) 


if (action ADDLINE) ( 


Za Orant the line - 


mS 


4 / 


7 


bes 


es 


7 


5 
+ / 


KH 


*/S 


*/ 


x / 


KZ 


Ke 
* / 


/* the first characters were qa line nusser -- no errors 
while (IbCIbpl]==° ° Jl] Ibi ibpts='' 
lb(++lbp] = getchurf?: fY* walt fer Ist non-blank 
switch (1bf lbp)) ( /* depends on Ist non-btank + 
case CR: Ye enter a BLANK LINE 
action = BLANK: 
break; 
case ‘,’ “* PRINT a black of lines 
action = PRINT; 
while (Ilb{tbp] f= CR) “* read 2nd Line number 
lb€++ibpl = we’*>-bar(); 
break; 
case ‘dd’: /* DELETE a line 
Ib( ++I bp) = getchari(): 
If €ibl tbp} == CR /* noxt char must = newline 
action = DELETE: 
break; 
case ‘'m': “x print and MODIFY a !ine 
Ip(++ibp}] = getchar’?),; 
if (ibCibp} == CR: “* next char must = newline 
action = MODIFY; 
break; 
case ‘q‘: “* QUIT the editor 
action = QUIT; 
PhbOO}) 4. ° EB”: 
for (ibp=l; lbp<t5: Lbpt++) 
lb{ lbp] = ‘0°; 7* put "E0908: in LB 
IbCibp] = getchar' !; “kK get next char 
} 
if Caction == ADDLINE) { “* ADD a new line 
while (1) ( 
fhstt+ lbp] = getchar'): “* pead the console 
if (lbp > 254) ( 
error( "LINE CRESTER THAN 256 CHARACTERS ") ; 
return; 
) 
if Cilb{€ tbp} == °.7) t fe ae) ts eed ts read, check 
if it is the EOU 
lb{++lbp} = getechart): 
ff Clbighbpls== ho monster)” is Ba 
break; 
} 
) 
) 
} 
while (1lblibp}) != CR) /* wait for newline 
lIb{ lbp] = wetchar!); 
Ib{ tbp} = EOL: 
return; 
Z| OS 6 9 1 OY CPi 
compdre () ( 
“*% comparea the current line svwumber buffer. CLN. with the Une 
“* mumber jn the Ist five canmr in the tupnt bine baffer. Lb 
a Pie wins a tle C = [ 
as CLE = 1B (As 


Zita: 


Jes ClEits< OLB (Goraes} 
int c.K; 
tor €k=05 843; K++) € 
if Celn€ kJ == Ib KID /* char are equal: cont 
c = FQUAL; 
else if fcin(k] * IUb€k)) t “3 not equal: halt 
e¢ = LESS: 
break; 
X 
ease if €elnik) > IbtkI]>» €¢ “*® not equral: halt 
c = GREATER: 
break; 
} 
) 
return(c); 
) 
Ja coe |b) e/) bal UN Oomekcar 
upline () ( 
7/* Flnds the next larger line number and moves the current line 
4* to the low memory area. 
int J: 
temp = °'9’; 
while (temp != EOL) ( /*% move char until end 
temp = mem(++cpl) = me-mricpat+t+]; “* of the line 
} 
Mor (3-9: j<d; yr) /* move next line # to 
eln(y!] = mem(cp2+)/: /* curr line buff 
return; 


i 
downline()  € 


“* Finds the next smaller 

/® line tn the high core nsrea. 
'7® begining address of the current 

int Jj; 

mem{-~cp2] = mem(cp!l--); 

temp = memlcpl]; 

wie (temp '= ROL) 


mem(--cp2)] = temp; 


temp = mem(--cpil; 
} 
fore (j=O0;: J<3: gtr) 
einly] = memlcp2+)): 
return; 


/* SEARCH */ 
search() C 


DOWNLINE «~ 


line number and makes 


it the current 
The pointer cp2 indicates the 


fine. 


/* move EOL char 
“* move char until EOL 


/*% move line # to curr 
on line number buff 


/*% Searches the memory area until the line namber is found. 
*® ( or the next Llareer line number for an add request). 
/* This line ts made the rurrent line number and pointer cp2 
/™®. Indicates the first atdtrees. 
imt ¢; 
if (aetion != ERR) ( 7* no error hase been detected 
c = compare); y* coanpare New and Current LN’s 
ewltch fe) C 
cease GREATER: SNA oCL 
while €e = = GAD UT ( £ move darn in memory 
downline’ °: 
Cee. oI) © SF 


TS 


* 


oe 
YS 


KS 
ee 


KS 
SF 


xf 
i 


¥/ 
*/ 


i LE ( Cad == LESS a ord 
upline(?:; 


break: 

cage EQUAL: fs 
break: 

case LESS: yk 


while (ce 22 
upline(); 
c = tomprztet 7: 


} 
if (Cactlon==ADDLINE '° aection==BLAN') 


passed 


NLA 


llne move up 1 


CLN 


Mies SCIEN 


ha lt 


Me we 


BA e¢==EQUAL) 


Wp 


“& Auplicate line number for a new line 
error( "DUPLICATE Lit NUMBER") ; 
else 
if €Cactlon==MODIVY |! action==U5SLETE |! action==PRINT) 
8B e ft EQUAL: 
/* a modify, celate., or print request and the 
line is not found. 
error( "LINE NIMBER NOT coud) ; 
} 
return; 
} 
Ze GEIS Yo &7 
getsym() ( 
/* Finds the length of the symbol print uname in the Illne buff. 
oR SBP Indicates the tst character of the eymbol 
* LBP indicates the lst blank. tah, or period 
Int I; 
sbp = Ibp; 
Morec1=9: I<. 1g; I++) ( 
feet bt tbp)==" ~ It [hb ibol=e="** I] bl lbp)==*.*) 
return( 1); 
else 
lbp++; 
) 
return (1); ‘* return the length 
) 
7% MATCH *7 
match (1) 
int lL; ( 
“7% Compares the symbo! print name Indicated by the SBP to all 


7* the print names in the s3mbol table anti 


/* The parameter "1" Is the length of the print 


int addr,eq,.k.tn: 


addr = —-16:; “x 
del = Of S* 
eq = 4; "+ 3 


while Ceq == @© 88 addr < car 6 


1 a match 
name. 


begwining of gym 
is false 
equal is false 


delete 


“* compare until equal is true or the end of the symbol tah 
next address in 


addr =+ 16:3 es 
ep = bs 
if CeatlCaddrj] < 0) ¢ x 
stladdr] =& O177: 
del = 1; 
j : 
for (k=9; KC ls k++) - 
If Clb€sbptk) f= 2tfaddrt+k)) 
eq = 0; 
lf Ceg == |) 
Peelorsnre tlivt time pe<t war In eso tah 


tlhe delete flag 


cempare 


alt 


ehar 


(end of 


is found. 


tab 


le 


Serle. 


is se 


name ) 


ee 


KS 
7 
KS 


ba 
x / 


a a 


if (&< 15 G6 stladdr+k+1)] %'2 °.*% 


eq = 0; 
if (del == | 88 eq == ™) € 
/* found a deletel naire and it doesn't match: restore fiag x*/ 
del = 0; 


stiaddr) =! 0206, 
} 


if €eq == 1) C 
“* name matched, return the token number 7 
tn = addr >>? ¢4:; 
return (tn); 
) 
alse 
return (-1); 


epithe 
enterpn( 1) 
int 1; C 


7* Copies the symbol print nane from the Line huffer, located */ 


7/* at SBP with length ‘1°, iuto the next empty symbol table *K/ 
/* location. */ 
int a.k; 

a= 0: 

while ( stCaj} {2 ‘7*) € 


/*# Find the Ist entry where the [st char is '/*, l.e. empty */ 
a =+ 16; 
if (a >= ea) 

re tirnc— 1) > 


A 

thor €R-O; EBS il: K++) 7* Move the print name *x/ 
etlLat++] = [bl sbptt+): 

stla] = ‘/7*; /* Insert end of name char */ 

return (a>)>4); /* Return the token number */ 


/* TOKENTZE */7 
tokenize() C 


“/* Converts a line tn the Procedure Division to token numbers */ 
“* and puts them in the f(cken buffer, TH. The TB is then meved */ 
“* to the memory area. lt the line is in the Data Diviston an */7 
7*® entry in the symbol toble is made. Lastiv, ail lines in the */ 
7* Identification, Environneut. and Data Divisions are copied *« / 
/* directly from the line buffer into thre memory working area b 
ye C(1i.a. in ASCII). od 
int Jjy,.tn. length; 

char t; 

Peel @)]--= We G68 Ciblijit=° 8° Ii blLS)!='e° I! tbls] f="e° 


[bli 4] '="0O°) BS LbtiG! t= °x*") C 
/*® line is in the Proc. Div and not a comment or the header */7 
tbp = lbp = 98; 


while (tbp < 3) 7* Move the line * to TB*/ 
tbitbp++) = Iibl lhn-+': 
while (Ib€ lbp) f= EOL) ( ck find tokens until EOLK*/ 
awitch (ibl lbp)) ‘ 
Sk awiteh ig based on the next clinracter in LB 7 
cage * “3 
tbl thp++°> = S&P \CFE; “*% Token © for ilank : 
loip+ 
break: 
cae : 
tht thpt>) = Ab; “ Toren * for TAL feo 


Ibpt++; 


break: 


case °.*: 
tb{ tbp++) = PERIOD; f%% token * for PERIOD 7 
tbpt++; 
break; 
case ‘'@': MLaNvrio) 19 7a, 141 TERA #7 
case ’°1°: “*k check the sym table %*7 
case ‘2°: ‘* for a match else a 
case ‘3' 7S make a new entry ste 
cage °4' 
case °93’ 
case ‘6’ 
case ‘7° 
case ‘§': 
case ‘9°: 
case ‘+° 
cage ‘-': 
length = getsym(); 
if (length == 17) 
7* literals can be more than 16 char: reset lbp */ 
Lbp==% 
tn = match( length) ; 
lot Cer tia Ss. 9) if 4% no match found Ky 
tn = enterpn( length): 
if (tn < @) ( 
error( “SYMBOL TABLE FULL"); 
refurns 
} 
} 
t = tn; 
tbl tbptt+] = t; 
break; 
default: fk’ a symbol print name */ 
len@wth = getsym(); 
if (length == 17) f 
error( "NAME GREATER THAN 16 CHAR"); 
return; 
} 
else f 
tn = match( length): 
if (tn ¢< 9) ( 
error! "NAME NOT IN SYMBOL TABLE”) ; 
return; 
} 
else f¢ 
ft = tn; /* put token in TB) */ 
Pb toot +) et; 
} 
) 
} 
} 
tb( tbp++] = EOL; /*® insert EOL in TB ¥*~7 
if (Cep2-cp!) > tbp) 
7/7 [neure there ig room In memory for the buffer *7 
for (j=; jy<tbp: j++) 
mem€++cpi]}] = tbhlgyl: 
else 
error( "MEMORY FULL"! ; 
} | 
else f 
if Cibl ey == *C*) { 

7* tine jis in the Data Div */ 
lbp = 933 “* search fm line * */7 
while (ClbCibpJ== " " tl bl lbplt= °') 

Lbp++; 
iimeebietog) t= 9° if Iblibp) == ~7*> ( 
“* entry is a duta definition */ 
while (CC Tbh lbyotl: tat tl Diente eee rads Pht Pypl f= >." > 
ap) to fie = ai phehe tic char or EOL 


ore 


a7 


lbp++; 


J = getsym(); 
biG ge== 1c) 2 7& name is too tong x*/ 
error( "NAME GREATER THAN 16 CHAR"): 
return; 
) 
else if (3) == C 
error( "INCOPAECT DATA DIVISION ENTRY"): 
retro; 
} 
else ( | 
tn = match jd); 
face ttn == —)}) C 7*® NEW print name 7 
tn = enterpnly); 
PE Cty < OY ( 
errort( "SYMBOL TABLE FULL"); 
returns: 
J 
} 
else if (tn>=0 &8 tn t= FILLER) ( 
Y¥ found a match and not the name "filler" ~“/ 
error{ DUPLICATE SYMBOL NAME”): 
re turn: 
} 
) 
) 
> 
while (lbfibp] f= EOL) /* LBP to end of line *¥*/ 
tbh p+ +; 
if (fep2-cpl) > Ihp) /* Insure room in memory*/ 
for (jy=0; jczibp: yt+? ‘* Move LB to memory */ 
mem{++cpl1] = Lbl yd; 
else 
error( "MEMORY FULL"); 
} 
return; 
) 
7*® DECQDE *7 
decode(t) 
char t: if 
“* finda the addreer of token number "t" and copies the print */ 
“7* name into the fiine buffer. LB. * / 
int addr.,m; 
addr = t << 4; “* address of the token */ 
m = addr+16; 
while (stladdrj] != ‘7’ && addr < m) “* copy name until «end */ 
Ib€ lbp++) = stladdrt++]; 
returns 
} 
7% BLA 47 
blank( ) ( 
7% Inserts a blank [Line Into any division. */7 
imt J: 
for € j=9; j%3: Jjrr) 
mem(++epl)] = Ibl yi; “* Move the line number */% 
mem€++cpl} = EOL; * Insert end of line t/ 
return: 
) 
Cr oP RA ees 
print () f 
“* Prints the current Line en console. tf the line is in the Bae 
mre 0 rt ie dece Jed pefore printing. This line is *S 
* the current Lime. ioe. both the CLE and CF2 are unchonges. Bd 


imt J: 


2 | 


piece inti O}== D)° BGS Celni it} t=’9° 11 clin(QlI!="°@* [tf cltnlBtts]e*v* [1 
cInf 4] !2°O*) 88 meanmlep2+6] t='*') € 
/%® ine is in the Proc Div and not a comment or the hender !tne 
anp = cp2? 
lbp = 5; 
for (y=O; yS3;3 gr) “*K print the Line nem 
putchar (mem[sbp++]): 
temp = meml( sbp++3J ; 
while € temp != EOL) C “® Decode token number 
decode( temp) : 
temp = mem[( sbp++]; 
3 
for (j=5;: ys lbp: yr?) “* print the LP 
putchar (1bly]),; 
) 
elee C 
shp = cp2; 
temp = mem[ sbp++); 
while ( temp {t= EOL) ¢ /* print line fm memory 
putchar (temp); 
temp = mem[( sbp++]; 
) 
} 
putchar(Cfh) ; “* decode the EOL char 
return; 
3 
/* DELETE */ 
delete(mod) 
int mod; ( 
/* Deletes current line from memory by moving CP2. If the ttine 
/* is in Data Div, the delete flag is set for the appropriate 
“* symbol table entry. tf MOD is true, DELETE was called from 
“* MODIFY routine and the line buffer, LB, must be gaved. 
faoetnm, J. length; 
if ('b(e) r= “"C*) /* line is not in Data 
while (meml cp2++]}] != EOL); /* so move CP2 to end 
else ( 
lbp = 9; 
if (mod) if /k gave the line buff 
tbp = 9; 
while (lbl€ lbp} != EOL) 
tb( tbp++] = Ibf lbp++]; 
tbl tbp}] =lb(€ lbp]; 
lbp = @; 
) 
Ib{O} = memlcp2tt] ; 
while Cib€ lbp) f= EOL) “™% move old line to LB 
lb(++lbp} = mem{cp2++]; 
lbp = 54 
while (Ib€ lbp] =: ° i! bf lbp) Fs °°) 
lbp++; “* skip blank char 
if ClbC tbp) == *O° I! ThE dbp} =F “Td ( 
/* not au FD entry. a comment, or a blank [ine 
while (1lb{€ lbp} ¢ ‘a’ JI Iblibp] > ‘z‘") 
lbpt+; ‘* gkip to Ist sane 
length = gwetsym(): 
tn = match ( length’: ~—* find symbol name 
if (tn >= RWORDS) ( “* not a reserver word 
jee tms 4 4; 
st{fy)] =1 9200; “* set delete flag 
} 
) 
Ppp > 8s 
if mod) ( restore line burf 
thp = 9; 
Vite (Ovbl thp! '= Ll? 
Ib( lbp++! = th tbn++1; 
Poigtpperie= thilths 
lbp = A; 
) 


*/ 


oe 


eS 


oe 


KS 


oe 


7 


x / 


} 


forme 7-0: Jsd3 yt) “7*% set CLN to next line */ 
eInl gy) = mem{ecp2+y]: 
return; 


Ze ODL EY %7 
modify() ¢ 


“*% calla the routines to allow the modification of a line 7 


print) ; 
input’ 1); 


awitch (action) if 


enase ADDLINE: /* Replace old line with newk/ 
delete); 
tokhenize(); 
break? 


case DELETE: /* Aelete the old tine 17 
delete(9); 
break; 


case BLANK: /* do not chanre the old line 7 
lbp = 0; 
break; 


default: 
error( "[LLEGAL ACTION FOR LINE MODIFICATION"); 
} 
returns 


4% PRINT BLOCK ¥/ 
printbIk() 


Y* Starts at the Ist line nunber in the LB and prints all lines */ 
“/* until the current line matches the 2nd line number in the LB. ¥*/Z 


/* If the Ist char following the comma is a CR, one line is 7 
/* printed. If the Ist char following the comma is a 'E', all ¥*/ 
Y* linee are printed until the End Of File is encountered. XS 
/* Allowable forms: XXKAX, XXXNK CR 

Aarous. CH 

XNARX, OR * / 
Pmt ¢.i: 


if (1lb(6} f= EOL) 
“* if not a newline, write the 2nd line number over the Ist ¥*2 
for Ci=O: i180; i++) { 
IbC ij = IbCi+6); 
feet (biol s= °F") 
break: 
J 
ec = compare(); 
while (ce {= GREATER) ( 
/* print lines until the 2nd line number is found or exceeded */ 
print(); 
upline!) ; 


¢ = compare(); 
if (elnl@] == °E* @8& th'O)] == °E") f 
print(); /* print the EOF Line 7 
break; 
J 
) 
return; 
) 
Zoe Yo, 
quit) C 


7* The file haw heen movet ito the low area of memory ant er id 


/® points to the last addrew=s of the file. The symbol table */ 
7* must b= cieaned up by setting all deleted p-names to zeros. x7 
int a, J: 
for (320; 3166; yt) 7% move End Of File fine */ 
mem{++enijJ = mem{cp2++]; 
a = 9; 
while (a “ ea) C /* Check entire S.T. */ 
i (stial < @) C 7* If the delete fing is set*/ 
Pere OjJ-O2  3< 16 j++) ‘Kk set the entry to ‘7° */ 
stiatJ)] = °7". 
} 
a =+ 16; /* ext p-name entry x/ 
J 
return; 
7 
/* JNIT =~ 
let) = = Co 
/* Checks if file is new. If so, the top of file and end of <7 
/*® file fines are inserted. KS 
/* If old or new, the EOF ie made the current Line number */ 
Paty wk. 1; 
I = @; 
for (jy=90; gS RWORDS; j++) /*® initialize the aymbol tahle */ 
for (k=@; k<t6; k++) 
wheitt) = Sym £5!) Ck); 
ea = 2048; /* set the length of svwm tab */ 
jJ = RWORDS* 16; 
while (jy < ea) ( 
aeeees) = "7": 
} 
cp. * MEMSIZE: 7® CP2 starts at top of memory */ 
if Cepl F= -i) f /* a new file, i.e. no char.s *K/ 
mem{++epi] = EOL; 
memetetepil = "A* =— |i; /* Set top of file *x/ 
mem{++cp1)] = EOL; 
mem{++cpilJ = ‘'E’ /* set end of file line */ 
mem(++cplj = °0O’; 
mem{++cpl) = °F’; 
mem{€++cepl] = * °; 
mem{++cepl] = ° °; 
mem{++cpil] = EOL; 
) 
downiine(),; /* makes EOF the current line */ 
return; 
) 
/* HEADING */7 
head ing () ( 
printf (°COED: Cobol! Editeur. Version 1.9 CR"); 
} 
7* MAIN “%- 
main() € 
Int h: 
api = —F: /* for TEST only > 
hending(): -* prints heading Line m7 
fale! ): ‘* initializing routine td 
action = ERR; 
white faction f= QUIT) \ eo tise rr sez “qiit” / 
inputl oy: *“ ead the console */ 
search () ; fond the destlred line */ 
switeh Caction) ( © aetion" is set in input *7 


ense ADDLINE: /*k ADD a new Jine 
tokenize‘); 
break; 


case MODIFY: /* MODIFY an old Line 
modify); 
break: 


ease DELETE: /*k DELETE an old lire 
delete(@); 
break; 


case BLANK: /*% insert a BLANK L:NE 
blank(): 
break: 


case PRINT: 7* wnrint a BLOCK of Lines 
printbl kt) ¢ 
break; 


case QUIT: /* QUIT the editor 
quit); 


) 


for (h=@; hS=cpl: ht) /* move mem area to fite 
putchar(meml hj) 3 

for (h=0; h<ea; h++) 
putchnr (stlhi]); 


& 


SGuUnGe LIStTlLaic —= COIN 


#define SP ACE 9 
#define TAB l 
#*#define PERIOD aL 
*iefine NEWLINE 3 
#define COMMA 4 
*define COMMENT 5 
*lefine ACCEPT 6 
#define ADD rf 
#define TO 3 
define ROUNDED 9 
#define S1ZE-ERROR 1a 
define CALL tl 
#define CLOSE Le 
*define DELETE {3 
*define INVALID }4 
*define DISPLAY 1D 
*define DIVIDE 16 
#define INTO iv 
“define ENTER 18 
*define EXIT 19 
*define CO 20 
#define DEPENDING ae 
*define IF 22 
“define NEXT pL | 
“define ELSE 24 
*define MOVE 25 
“define MULTIPLY 26 
define BY Lae 
*define OPEN 28 
*define [INPUT 29 
*define OUTPUT 30 
*define PERFORM oy 
*define THRU 6 PE 
define. TIMES os 
*define UNTIL 34 
#define READ 35 
“define END 36 
“define STOP 8 
*define RUN 38 
#define SUBTRACT 39 
#*define Fr ROM 409 
define WRITE 4i 
#define BEFORE 42 
*define AFTER 43 
*define ADVANCING +4 
*define PACE 45 
“define NOT 44 
#*define GREATER 47 
*1lefine LESS +8 
*define EQUAL 49 
*Jdefine NUMERIC 39 
*define ALPHABETIC Di 
*deafine EOL D177 
"define MEMS IZE 4096 
define MAX 9256 
*“define ON HOO | 
*define OFF NADH 
define TRUE NaHOd 
*define FALSE OGY | 
“define NUL es er 
fdefine EOF “O° 
*define add 3) 
*define gub I 
rt OBO. INIERPRETLR == €OiN *- 


7% The followlre tables are usecl for the arit*mettic routines. 


53 


7% the Implimentation of this interpreter on a microcomputer. these */ 
7* tables would be in ROM. Thus the access time would be nappror- : 
/* imately equal to the memory cycle time. A a 


ehar *addtabl [196] 
"9123456789", 
"1234567890", 
"2345678901", 
"3456789012", 
"4567899123", 
"3678901234", 
"67890912945", 
"78990123456", 
"8901234567", 
"99 12345678", 


char *addtab2 [ 16] 
"QQBNRH000908 " , 
"9999OHO091", 
"9990000811", 
"999GR8O81 11", 
"9@HNGC60R8T1LII", 
"9990911 tes 
"990011 ; 

"909011 


" 


111 

1111 
eri”. 
Pliii”. 
eit, 


char *eaubtab!i [ 14] 
"99 8BT654321", 
"1998765432", 
"219098765439", 
"3210987654", 
"4321998765", 
"349392 109876", 
"6943219987", 
"765493218698", 
"97659492199", 
"9876543219", 


"908998 1 
"POSHSOHVOlLLI", 
"OAOOBOSOLI”, 
"909H808801", 
"PADBODANABHO " , 
5) 


D 


char *multab!i [ 19) 
"J90AD8N9GBS", 
"9 123456789 ", 
"9246802463", 
"B369258147", 
"9482694826", 
“AS GSN59505 ", 
"0628496284 ", 
“074 1852963", 
"9864298642", 
"O99 BTAS4E321", 
) 


C 


( 


C 


f 


am 


7m® 


Zire 


n 


i 


s 
a od 
FA . 


94 


addition sum tahte 


addition carrwv table 


subtraction tabte 
this table assumes 
that subtab 7 =! vy) 
means x 7- y 


borrow table 


Ev of prod tc t 


e/ 


KS 
a hr 


char *multab2 £16) ({ “* MSD of product : ee 
*98800080805", 
"PADOVHBVOH ", 
"9H9OOLLTIII", 
"98900111222", 
"9090 1122233", 
"00 11223344", 
"9011233445", 
"99 12234456", 
"896 12344567", 
"9012345678", 
9 

Be: 


int length @; 
int errfile OFF: 
char save om as 


char mem MEMSIZE] ; “*& byte accessible memory array */ 
int pe; “*k program cntr-~byte offset in mem */ 
int sptr;: Y* search buffer pntr-~byte offset */ 
char sbufl 161; Y*‘ gearch buffer */ 

ehar x3s,ys; /*® sign bytes for x and y buffers */ 


nme, xe.xXd,¥l.y2.,y3.n:3 
char xb({32) ,ybs092).temp( 32) ,.c(32]:/* operand buff for math reutines #7 
mt ep il /* stack pointer for PERFORM verb ad 


oe 


int entr(81 ; Y* counter stack for PERFORM verb ay’ 
int rtn(8} : 7* rtn addr stack for PERFORM verb x*/ 
int «xt(8] : fk exlt cond stack for PERFORM terb 7 
char psave; 
int cpl,cp2: /* memory pointers-—~byte offsets * / 
int begproc; /* byte offset--inlt to beginning of proe div 7 
int begdata;: /* byte offset--inlit to beginning of data adiv KS 
int base; “* byte offset--inlt to beginning symbol! table 7 
int condptr; Y* condition putr for IF verb 4:7 
char Ibf256]; /* Line buffer 7 
int Ibp 0; 4* fine buff pntr--byte offset */ 
int eln( 31; 4*® current line wuwumber */ 
int x 0: 
int yv He 
/* READIN ‘*&7 
readin() if “/* This routine initiallzes 2 memory pointers--one */ 
4% at the bewinning and one at the end--ani rerds */ 
/* in a predefined Input file until eof or the 2 MS 
“* pointers meet. x 
eol = -—1; 
cep2 = MEMSIZE: 
save = getchar(); 


while (save [f= EOF 88 cpl != cp2) C 
mem(++epl} = save; 
save = getchar(); 


} 

lf (ep! f= cp) C 
memi++epl)] = save; “* write EOF inte remory */ 
Jen@th = cpl; 

} 

else C 
printf( "PROGRAM EXCEEDS AVAILABLE MEMORY") ; 
errfle = ON; 

} 

returns 

} ve end readin *7 


4* WRITEOUT 7 


writeontt > f 
wille € ept != length) 
mem€++cpl) = memlepott+); 
epi = WV. 


loop: 





' - 
» 


while’cpl length @35 menicp!] 
putchar(memlcpi++)]); 


{fs 


EOL) 


ito = length)  ( 
putchar('#’), 
zoto loops; 
) 
return; 
} /* end writeout */ 
/* COMPARE x/ 
compare() t “* This routine compares the current line nuamber 
/* buffer, cin, with the first 5 characters in the 
/* line buffer, Ib. 
“#  [f cln > 1b a 1 is returned; 
Z* Tf eln = lh a 2 is returned; 
Y* Tf eln ¢ Ib a 3 is returned. 
int comp.,k; 
for (€&=@; k°oS; k++) ( 
“if Celn€k) == IbCkK)) “% char are equal: cont 
cemp = EQUAL; 
else if (eln(€k] ¢ IbfkK]) C /* not equal: halt 
comp = LESS; 
break; 
} 
else if (cln(k] > IdD(kKI]) C *“* not equal: halt 
comp = GREATER; 
break; 
3 
) 
returu(comp) ; 
} /* end compare  */ 
/* UPLINE */ 
upline() (€ /4* This routine finds the next larger line number and 
/* moves the current line to low memory area. 
Pat), Scratch; 


scratch = ‘@°; 


while ‘scratch {= EOL) C “* move char until «nd 
scratch = mem(++cpl)] = meml cp2++]; /* of the fine 
2 
for (y29; jy<Ss grr) “* move next line * to 
cinf yl] = meml cp2+y]; /* curr line buff 
return; 
) /* end upline */% 
/* DOWNLINE */ 
downline) C /*% This routine finds the next smaller tine number 
/* and makes it the current line in high core--cp2 


7* indicates the beginning addr of the current 
int J. scratch; 
menml~--cp2J] = meml€cpl--]; /* move EOL char 
scratch = memicpl1]); 
while (scratch != EOL) C /* meve char until EOL 


mem{ -~cp2] = scratch; 
eerateh = mem[--cpl); 


} 
for (y=O; gS: yr) “*% move fine # to curr 

cinfy] = memilcp2tyl; or fine number buif 
return; 

} 4* and downline *4 
/*x TOKEN x7 
token() ( /* This rontine returns the next token 
uumber ecanned. ee 
while(mem{ pe++] < COMMENT? 
/* akip periods. vommas. tabs. and blanks 


AG 


line 


*/ 
Kf 


KS 


* / 
KL 


eg 
x / 


7 
*/ 


eS 
r/ 


*/ 





pe w=: 
retuarn(meml pel]); 


} /* end token */ 
/* FIND */7 
find) C /* This routine searches the data division until ‘it 
Finds a match with the name in sbuf. */ 
imt i: 
loopi: 
i= 9; 
white £1 6 16 88 sbuffil] t= NUL 382 sbuflil == mem€cp2?> € 
a ae 
mem(++cepl) = memlep2++]; 
} 
if (i != 16 88 sbuflij t= NUL) f 
i= @a: 
mem{++cplj] = mem{cp2++1] ; 
goto ftoopt: 
D 
/* epl now points to the last character of the identifier */ 
for €i=9; if 16; it+*) 7* zero ont sbhuf = ™.,’ 
sbuf{ ij] = NUL; 
return; 
y /* anl flnd */7 
Zee Na Va © KZ 
initval() if /* This routine initializes variables in the data 
division that have the ‘value’ clause. An *=”’ 
sign and the initial vaiue is inserted directiy 
following the clause. */ 
int i, 
IbLOJ] = ‘C€’; m= fitlvlbh with Tine * of data division “7 
for(iz=O: i © Bs i++) 
ibCijJ = ‘O's 
while (compare() f= EQUAL»: 
7* move lines to flow cor til top of data div tH 
downline(); 
begdata = cpl +1; Yropyte offset of first line * of dnta div *7 
abuf(9@} = ‘v’; 
abuf€ilj = ‘a’; 
sbuf{2]) = ‘1°; 
ebuf(3) 2 ‘ua’; 
sbuf{4) = ‘e'; 
while ( cp2 {= begproc) (f 
find(); 7t Finds each occurance of VALUE clause ¥*/ 
while (f{(memfcpl] >= °° 36 mem€cpl)] <= ‘*9')) 
mem{++cp!} = memil-p2++]; 
sptr = cpl; 
while (memlcpi] != fol) 
mem{++cpij] = mem(cp2++]; 
mem(cpljJ = ’°='; 
while (mem(sptr] != ‘=') 
meml++cpijJ = memlsptrt++]); 
mem{++epi) = EOL: 
} 
returns 
Y 7% end Initval ¥/ 
fe LOAD «© 
load(r) “* This routine loads xb or yb. depending on 
the value of r. with the value correspond- 
ing with the token number in save. */7 
int r3 { 
int i: 
sptr = sawn * 16 + base: 
if ((mem{eptr) < '8°) It Cmemlsptr)] > °9°)) € 
if Cmemleptr] == ‘°-') ( 4% negative jJiteral ¥ 
xhe = °-*; 
Smt rr? ; 


e 


else C 


if ‘mem€sptr] == ‘'+') C “*& positive literal */ 
me =) "+": 
sptrt++; 
eisa °< ¢€ “* alphinbetic~-find value in data div */ 
while (cpl != begdata) 
mem{--cp1] = memf{cp2--]: 
for €1i=@; i < !6: i++) 
sbuf{i] = memlsptr++]; 
find(); 
while€memlcpIi! <%= ‘=°) 
mem{L++cpl] = mem{cp2++]; 


Soer = Cp.3 
} 
} 
while((meml(sptr] !='’."° “GC memlsptr] !=EQL) 68(menml( sptr} t=NUL))) C€ 
xbCLil] = memisptri ; 


epee 
gsptrt+t; 
} 
if (mem{€sptr] != °.°) C 
xi = (i; 
Meee yl: 
xd = O; 
) 
else C 
x1ilo= i; 
sptrt++; 
while ((mem(sptr: t= EOL) 88 (mer(sptr] != 8)) ¢ 
xbf i] = memf{sptr]: 
i++; 
aptrt+; 
} 
ees yi + I; 
Tos 1s 
} 
mtr == y) C 
Pom@re@; 1 < x2; i++) 
yb i] = xbfil; 
yi = xl; 
go = x2; 
y3 = xd: 
ys = xs; 
cp2 = cp2 + yl; “* value will be overwritten by result */ 
7 
} 
me turn: 
) /*t end load */ 
“* RELOAD */ 
reload() if /*® This routine reloads a value from yb into 
the data division. */ 
int i; 
it = @; 


MY Cyse== '-') 
mem{ ++ept} 
if (vbl1] == °9 
Pty; 
while (€% "2 yl) 
mem(++ept)] = ybl i++]; 
if (53 t= @) 
mem€+t+en1l] = °.°3 
while (1 %= y2) 
meml ++cpl] = ybl i++]; 


ys! 
8B yi > 1% 


od 


) 
memi++cp{t] = EOL: 
returs; 

) yt end reload 7 


wide 2 i 8 (a El Ga 


ag 


rnextline(? C /* This routine skips to the first token of 


the next tine. 7 
int i; 
if (save f= EOL) 
while ‘token() {f= EOL); 
for (129; i ¢ Se i+) 
elnl ij} = mem(++pec]; 7* load cln and skip line # ¥*- 
4*% end nextline */ 


“* KEYWD */ 


keywdl) € 4* This routine calla routines by cobol key words. =:/ 


awitch(save) ( 
cage COMMENT : /* comment */ 
nextline(); 
break; 


case ACCEPT : /* agecept statement */ 
accept); 
break; 


coge ADD : /* add statement */ 
conputeladd) ; 
break; 


ease CLOSE : “*  eclose statement */ 
close(); 
break; 


case DISPLAY : /& display statement */ 
display(); 
break; 


ease DIVIDE : /*~ divide statement */ 
divide(); 
break; 


caae GO : /* goto statement */ 
sol); 
break; 


case MOVE : /* move atatement */% 
move() 3; 
break; 


exse MULTIPLY : /* multiply statement */ 
mulft()¢ 
break: 


case OPEN : “/* open statement */7 
open(); 
breaks 


ease PERFORM : “* perform statement */ 
perform():; 
break; 


ense READ : /* read statement *S 
read(); 
break; 


ease SUBTRACT : ““ sauabtract etatement */ 
computeCsub) ; 
break: 


ensze RITE : “kK write satrntement *4 
write (); 
beenk;: 


default: “4 eyutay error *~/ 


errfle = ON; 
errmag( "INCORRECT KETeORD FOLLONTNG CONDITIONAL OR 2 Ca 


uwQ 


) 
return: 
} 
cond() if 


/*# and switch stntement */ 


/* €OND “7 


“* This routine evaiuates a conditlonal phrase and 
returns true or faise. */ 

char templ, temp2; 

gave = token(); 


if((temp2 = token()) == NOT) ( 
tempi = NOT; 
temp = token); 
} 
awitch! temp2) f 
case NUMERIC : Foe 
sptr = save * 16 + base; 
if «mem€sptr] <= °9°) 
temp2 = TRUE; 
else 
temp2 = FALSE; 
break: 
case ALPHABETIC : Vo 
gptr = gave * 16 + base; 


if (mem{sptr] > ‘9') 
temp2 = TRUE; 


else 


temp2 = FALSE: 


break 


i 


case GREATER : “x* 
load(x); 


case 


Save 


— 
_— 


token(); 


load(y); 
if (size) == CREATER) 
temp2 = TRUE; 


else 


temp2 = FALSE; 


break 
LESS 


e 
% 


as 


load(x) ; 


save 


token() ; 


lnadly) ; 


If (size() = 


temp2 = TRU - 


alse 


temp2 = FALSE: 


break 


ease EQUAL 
load( x); 


defa 


) 
if (temp 
1f ¢ 


gave 


: “m®. 


token(); 


lonadly); 


Ye a 


ai 


ze() == EQUAL) 


temp2 = TRUE; 


else 


temp2 = FALSE: 
break; 


ee ges 


errfl 


Ss 


numeric? 


ye 


alphabetic? */ 


<Dpo 2 yh? 
xb < yb? 
mo = yb? 


K/ 


tS 


eS 


7* zyntax error */7 
errmag( "INCORRECT ORD IN CONDITIONAL PHRASE") ; 


= ON; 


78 end awitch staterent Ke 


NOT) ( 


es 


= TRUE) 
EAXL™& : 


TRUE: 


1494) 





} 


return(tercp2) ; 


) /* end cond *®/ 
accept () i 
nextlinef?:; 
return; 
} 4% end accept */ 


close() ¢ 
nextline(?); 
return: 

} /* end clase */ 


display) C 
nextline(): 
return; 

) 4* end display */ 


7x GO */ 


got) C /*® This routine searches the precedure division 
from the beginning for a token match. */ 
char scratch; : 
save = tounen(); 
pe = begproc;: 
while((scratch = token()) '= save && scratch != STOP) 
nextline(); 
if (scratch == STOP) ( 
errfilae = ON; 
errmse¢( "DESTINATION FOR GO STATEMENT NOT FOUND") ; 


} 
elge 
nextiine(d); 
return; 
? “* end go ¥7 
7*® IFS 7 
ifad) ( /* This roatine determines program flow by testing 
a condition-~if true, the imperative directly 
following the condition or NERT SENTENCE is per- 
formed; if false, the imperative following the 
ELSE clause is performed, if present. */4 
if (cond()) { 
gave = token(); 
if (save f= NEXT) 
keywd() ; 
else 
nextline; 
D) 
elge 
while(( (save = token()) != ELSE) !!(save t= EOL)); 
it (save == ELSE) ( 
save = token(); 
ke ywd ( ) ; 
} 
return; 
) “Zk end ifs KS 
/* MOVE */ 
mo ve ( ) ( “Y This routine moves the valne in the first Identi- 
fier or literal into the saecend identifier. */ 
Prt a: 
Gave = token(); 
load( x); 


fie (torken! > $= TO) ( 
nyrinaey TO BSPECTED AFTER IDENTIFIErP IN MOVE STATEMEPT °°: 
exar foe = ON: 

) 

Mie rear’) 

sptr = «cn-~ * 16 + base: 


1(¥ | 





for (i1=@; i < 
| sbuff{ i] 
find’); 
reload()3; 
nextline(l>: 
return; 

J “* end move 


Poe itt) 
mem( aptr++!; 


“* store value from yb !luto 


K/ 


“* NAME 


in 7 


name() ( “/* This rounatine handles 


section names. */ 
fieGap t= -1I)  § ¢C 
“* then proceaging within PERFORM : 
if €Cestlsp)] == savesilfext{(spl] == i) ¢ 
iffentr({sp] == @) C 
ext€sp) = 9: 


data division 


re 


the processing of paragraph and 


faterent *¥*/7 


pee rtnil sp! ; 7* set pe to instr after PEAFOARMS! x7 
gp--; 
nextline(); 
» 
else if 
if (centr{sp] '= MAN) if 
Cntriep!) = “<ntrisp]) — 1: 
/* perform proce a # of times */ 
pe = begproc: 
while€ token) = psave? 
nextlinef); 
nextline(); 
3 
else C “’® UNTIL condition must be evaluated */ 
tiv Ccondt) +) ¢ 
pe = rinisp]; 
aO-— : 
nextlinel); 
} 
else f 
pe = beerproc: 
while tftoken€) !2= psave) 
wexztline ©); 
nextline(?: 
) 
} 
3 
} 
} 
else 
nextline(); 
return; 
} 7* end name */7 
open() € 
nextline(); 
return; 
} “* end open */ 
Zen eR ERROR ee 
perform() f /* Thie rontine causea program flow to jump to a 
particular procedure and return to the state 
ment fo. lowing the perform statement. of 
mt i; 
1 = @; 
rtn{++spjJ = pe: ‘* enwe current program counter */ 


entr{ap] = &: 


ext{sp] = 1: next 


ee defanit walue-~exit tmplied at 


psave = token); 
if (€ aave = token()) fF Fit. ( 
if €a@ave == THRU) f 
extiapl = tokenf); 
aave = token": 
) 


UG 4 


tf feave 


procnaame =7 





ecenutrlsap] = MAX: 
csndptr = pe; 


) 
if tsave != EOL) C 
inad(x); 
eztrisp] = xb{9) - °@°: 
if ty2 == 2) 
cntrOep! = (cutrisp] * 140) + (CxbI 1) - °@'): 
moet ya. & 2) C 
errmsg( "PROCEDURE CANNOT BE EXECUTED > 100 TITIES"); 
errfle = ON; 
3 
if (token() ‘'= TIMES) C 
errmsg( “TIMES EXPECTED IN THIS PERFORM STATEMEDT") ; 
errfige = ON; 
} 
} 
») 
if (save == EOL) C 
pe = berproc; /* search for proc to be performed “v4 
while (token €) ?= psave) 
nextline(); 
nextline(); 
) 
return; 
) fr end perform */ 
/* ERRMSG */ 
errmusg(err) /* This routine prints an error message corresponding 


to errnum which is set at the time the error 
oecurred., ey 
char *err; if 


int i: 
printf( "ERROR OCCURRED AT LINE "); 


for(i=@;i ¢< 3: 1i++) 
putchar(eln({ il); 
printf("* Ns #*",err); 
return: 
} 7*® enderrmsg */ 


Z* SIZE */” 


size() ¢ /*% This routine returns GREATER if xb > yb 
EQUAL if xb = yb and LESS if xb *¢ yb. ¥*/ 


bat g@iz,ir 
if (xl > yi) /* xi. yl contain the * of significant digits 


GREATER; 


i = @; 
mini Oo sbL 1) > yht il) S828 (++i ~ yar): 
fio Ci == y2) 


siz = GREATER; 
eise { 
i= 9; 
while((xb(€ 1) == vb01))480+4+1 < y2)); 
toy == v2) 
siz = EQUAL; 
alse 
aiz =: LESS, 
) 
} 
») 
returnfsiz): 
) Ae ej end «ize a 


ce Ge 








filbuf() i 
Pre(s 22 9) { 
while (€=2 > 0) C 
feo n-=-) = 9 x5l——>2 | 
cin] = '@"; 
3 
) 
else { 


while {‘w2 >) @) . 
tempt n—-—) = yhi--y;2:: 
cfni = *@’: 


} 
J 
return; 
} fe end filbuf *7 
Ze. COMPUTE <7 
compute(op) /* This routine adds or subtracts 2 values 
depending on the parame -+«r op. */ 
int op; ¢€ 
mea, b,m.1,dif; 
gave = tokent); 
load( x) ; /* loads first operanl into buffer xb */ 


gave = token(); 
if Cop == sub) ( 
if (save f= FROM t 
errflg = ON: 
errmsa( "FROM REQULRED HERE IN SUBTRACT STATEMENT"): 


} 
} 
else C 
if (save !2= TO) € 
errflg = ON; 
errmse! "TO REQUIRE” HERE IN ADD STATEMENT"); 
V 
) 
gave = token(); 
load(y); /* loads second operand into buffer yb */7 
meee x> «f= yv3) ( “* x3. y3 contain the number of digits to 
the righ! of the decimal point 7. 
if (x3 > yd) { 7% zero fiil bufter with shortest 
mantissa to align decimal points «7 
dif “=—23 — y3; 
forecial; i: <= dit: i++) 
Tol yet!) = 0: 
y3 = x3; 
} 
else C 
Gaia =) Yoo— x.) 
for (i212; 1 77 dif: 1++) 
xb{ x2++)] = Q; 
x3 = y3; 
) 
) 
mex «>= y2) 4® x2, v2 enntain the total number 
of digits in each operand 
a= Xe: 
elae 
m= ya 
nee ins 
etn) = "'; 
if (op == eunb) FC 7*% to subtr-et. chnnge sign of the 
first opern: | and add */7% 
Wie (xs == “t') 
eos SY 
olae 
XS a! 
) 
if (xs == vs) C 


ein] = °°: 
mwitileamtesys > QQ) SA (xt > Oy) f 





a = xb{--x2) - ‘Q°: 

b = ybf--y2] - ‘0’; 
temp(n--] = addtabilallhb]; 
eln) = addtab2[alih’; 


} 
filbuf) ¢ 
n = m: 


while (n > @) ¢ 
a = temp[n]) - 
b = c{n] - ‘@°; 
ybUn--] = addtabl{(aitbl; 


‘wad 


y 
else C 
awitchlsize()) C 
caae EQUAL: CLE} eZ 
ya = xs = ‘+; 
c(@) = *9°; 
2 = il; 
y3 = 96; 
break; 
case GREATER: “K Rb > vb */ 
ys = xs; 
while (y2 > 9) c 
a=) xp(--=2)] -".@. 
Deeb yl > = 6 OP 
temp[> n--] = gubtabtilCallb]; 
e{n} = snbtab2fal( bl]; 
} 
filbuf(),; 
break; 
case LESS: oe xb < yb *7 
XS = yS: 
while (x2 > 9) C 
a= xb(--x2] - ‘'@°; 
b = ybl-<-y2) - °*@’; 
temp£n--] = subtabli(€bital: 
e{n] = subtahb2ibl(al: 
J 
fFilbuf(); 
break, 
) “* end switch statement *’ 
1 = m: 
while (n > @) C 
a = temp(n}] - ‘0° 
b = c{n] - ‘0°; 
ybCa--) = aubtabliatlb!; 
a | 
} 
yb(9) = c({A];: 
ye = m: 


yl = y2 - y3; 
reload); 


return: 
) “ev end add */ 


7% MULTIPLY = 


mult () {( /* This routine multiplies the !st operand by the 2nd and 


stores the resuly in the second vperand. */ 


char p.cl.c2,.¢c3.¢4: 
me em. b.fti,t2,z21(.22. 1; 


Save = token(?; 

load( x); 

meetoken’’? ‘= PY) c 
ervfle = (N; 





errmes( "BY NERUIRED HERE ('§% MULTIPLY STATEMENT") ; 


*/ 
a 


b 


KS 
KS 


K / 
» 


K / 
KS 


KS 


KS 
x/ 


K/ 
K/" 


*/ 


* / 


) 
gave = tokent); 
loadl.y) ; 
pales city i: -* location of decimal pt in tema 
moe Sot y 4* nnasiher of digits in product 
feo = Ze; 
for (€a=9: aC 25; att) /* set the output buff to zero 
temp{a] = ‘H's; 
for! ylzy2-t; vl>=80; yl-- ) “* for cach dieit In multipiier 
Geoe= °t = “*O'; “Rk get eorry to ascii zero 
le 8 2 
fees i=sa-1; x1>=O;: zxi-- ° © 4 for each digit in mmltinp: tcank*/ 
meee cl Oo: bh = wielyhi= "Os 
p =mu.tah!i La] Cb; Ztepeoduc tor 2 digi ts 
ceitzmultah? [a] Cb]; /k save carry 
Meeps Oe. b = c2—"O’; 
p zaddtabi Ca] [bl]; /* aid previous step carry 
ecltaddtab2 [a] [(b]): PRE Awe CAL y 
fee ce— §F ¢ b = ael-'*f"; 
eo-addtabil [a] (hb): 7% add carry for next step 
SeeemeempL tijJ—-"O°: b = p- 4s: 
p =addtabI [a] (hb); /*% ald reeult to output 
ceB3eaddtab2 [a] (hi: vw save carry 
ae 683 lb = le 4a" 9" L 
templ ti-c~] =addtabi [fal (b!?: 7s add previous carry. sve 
e+t+zaddtab2 [aj] Cb]; ft eave carry 
oe cst 8 = b = c3-'R’ ; 
mtoaddtabi Cal (Cb); /* add carry for next -=‘t-+p 
} 
t2--; 4% decrement temp counter 
} 
SS AD ow te le) 
temp( ti] =addtabi [a] [b!; (Peewee is mel of owt pt 
yl = zal: 
coe Zo: 
wae yl = wil; 
Seeeeism’> i 2 yl; i++) , 
yb( 1) = tempi]; 
if Cxs != ys) 
ys = ‘~-’; 
else 


) 4 


es - + ; 
reload(): 
return; 
) re end wmultipiy ~~ 


Ze LV LE 


divide() { 


*Thig routine usea the non-restoringe technique to caleulinate 
rhe quotient--xb Is divided into yh and the quotient is 
atored in yb. Wwe 


notes, J, ip.se.z1.z72: 
char zs; 


Save = texenl?: * load operands *. 
load( x): 
if Ctokent?) t= INTO) C 


errfle = of: 
errmszt "INTO REQUIRED Wen co DIVibG St. tere 2: 


) 

save = token); 

loadly); 

se = ; Oe 1 At Oma CO Crit 337 

dae = |: SE olieai* Pos rien ih temp oe 

male = hms l+t. * soyrits preeeedinge iz 

Pom €j=0; 36323 pre) erent acon iy et ee eto 
Gein ys = 9% ; 


“AA 








Boate (xb' OG] == "9") ¢ 7* if MSD is zero. shift sae 
for (379; y%x2:s jr) 
were dg] = wblj+l): 
if (x! '= M™ 
i 
So 5 
} 
while (dp “= «2 &8% a < 16) € 
/* while the number of dizite in the output is tesa than ir the */ 
7# dividend and the remainder (xh) is not equal to zero */ 
gwiteh (xs C /* ewitch on sign of remain. */” 
ense “r': 
/* if the remainder ig positive subtract the diviser */ 
-¥ until the sign <f the remainicr changes 7 
ac = 'O'tL; 
while (xs == ‘+°) { 
computel sub) ; 
art + 
) 
vempliduss y= sc ; /*% atore ASCII value in tenmr 7 
reak; 
case ‘-‘: 
4* if the remainder is negative. add the divisor unrfii %*/ 
/* the sign of the re:imminder changes KS 
oat |. 
while (xs == ‘-°*) L 
computeladd):; 
ae—— ; 
) 
tenipl«p++) = sc: ‘* etore ASCII value in temp*7 
break; 
) /* end of SWITCH stint ue 
Mere jJ-15: j>=0: Jo) “* ehift divisor to right a 
ybC j+1l = yblyl: /* Yor next cycle -7 
wie wl: “* adjust char counters 7; 
fe y2++ 22? */ 
for (a=@; aC l6; at) “* test remainder (xb! equai*t’ 
Pee t(xpla) Y= “@') /* to zero CA 
broak;: 
} -* end of WHILE stmt */ 
lf (xs f= ye) “xk set sign of result ore 
a -) 
else 
ys = ‘+°*3 
c= ip + I: fk save length of output oe 
wie = Zl: 
woe- yo ~ yls 
for(jy=9; jy < ys grr) 
yh yi = templyl; 
re load(); 
return; 
p| “* end divide */ 
as MA ITT yey, 
maint) ¢ 
7% This routine reads the editor ontput file into a char array 
called mem in memory; Initializes varinhb'!= values in the dats 
division: acans the procedur divisten *' ‘en by token Cbyte hy 


byte) for grammatical corre: 
statem*nt ne it encounters | 
' 


faulty punctuation or when 


tness and executes ench comptete 
ts rain kalbi~ on all errors xcept 
{ Seats ties on ters stop ae 





Tiiske 1: : 

printf! "COBOL INTERPRETER. Version 1.0 ="); 
readin‘é); 

ifCerrflg == ON) 


wots eadmain: 


downline(}; “2 Find last EQUu--hege of svmbol tnble */7 
base = cp2 + 3; /* set base to byte offset of aym tnhle */ 
1b(0)} = *D'; /* ‘oad Ib with Ist tine - of proce vive ¥*/4 
for (i=1; i < COMMENT; 1 ++) 
Pees) = *@"; 
while fcompare() = EQUAL» /* move proe div into high -ore */ 
downline); : 


pe = “pe: 
nextline() 


‘ 
begprvc = pc; “* pe and begproe now srt to Ist executable stat */ 
for (120: i <= 16; i+) 
sbuffiJ = NUL; /¥ zero fill the search buffer 
Initval(d); /™% tnitialize identifter values °“/ 
while (( (save = token()) != STOP) 846 ferrfle == OFF) ) ( 
/* @acan until token for stop or errer */ 
aewltch( save) ( 
case COMMENT : /* comrent 7 
nextline?l); 
break; 
ease ACCEPT : /* aceept statement */ 
accept (); 
break: 
case ADD : /* add ztatement */ 
compute(add) ; 
break; 
case CLOSE : /* close statement */ 
close); 
break; 
case DISPLAY : 4* display statement */ 
display(); 
break; 
cage DIVIDE : /* divide statement */ 
divide(); 
break; 
case GO: /* goto stnrntement */ 
gol); 
break; 
case IF : /* if statement */ 
ifs(); 
break; 
case MOVE : /* mova statement */ 
move ( ) ; 
break; 
case MULTIPLY : ‘e* mnltiply statement */ 
mult); 
brenk; 
case OPEN : Sk open atatement */ 
open () ; 
breaks: 
case PERFORM : /® perform statement */ 
perform(): 
break: 
caes AEAD : 4* read statement */ 
read();: 


{NH 





break; 


cease SUBTHACT : /* snbtract statement 
compute(auh) ; 
break; 

case WRITE : /* write statement *¥*24 
write); 
break: 

default: 7x JVabel proc neme,section name 
name () : 

} Yk end switch etatement ‘%/ 


3) 
endmatin: 
writeount(); 
7* end main-~-return to menitor te 


cary 


ee 


or 


ca Gun oc 0 a 


x / 
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